For r = 1 To 1000 Step 10
Circle (Rnd * Form1.Width, Rnd * Form1.Height), r, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
For i = 1 To 100000
Next i
Next r
End Sub
Private Sub Command7_Click()
Cls
Form1.DrawWidth = 1
End Sub
Private Sub Command8_Click()
Form1.DrawWidth = 3
For r = 10 To 1000 Step 10
Line (Rnd * Form1.Width, Rnd * Form1.Height)-(Rnd * Form1.Width, Rnd * Form1.Height), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
For i = 1 To 100000
Next i
Next r
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.DrawWidth = 3
For r = 10 To 1000 Step 10
Circle (X, Y), r, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next r
End Sub