Private Sub Form_Click()
Randomize
Cls
Dim MaxX As Long
Dim MaxY As Long
MaxX = Form1.ScaleWidth
MaxY = Form1.ScaleHeight
For I = 1 To 50
x = Int(Rnd * (MaxX - 500))
y = Int(Rnd * (MaxY - 500))
Form1.Circle (x, y), Int(Rnd * 500) + 1, RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
Next
End Sub
Private Sub Form_Load()
Form1.BackColor = vbBlack
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024