Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) FillColor = QBColor(Int(Rnd * 15))
FillStyle = 0 '你也可以将0替换成Int(Rnd * 8) 让填充方式随机改变 Circle (X, Y), 250, QBColor(Int(Rnd * 15))'也可将QBColor(Int(Rnd * 15)) 去掉 默认是0 黑色边框End Sub...