Random Circles using Mouse Click

Private Sub Form_Load()
Me.WindowState = 2
Me.DrawWidth = 2
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
FillColor = QBColor(Int(Rnd * 15))
FillStyle = Int(Rnd * 8)
Circle (X, Y), 1000
End Sub