Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 Then
Timer1.Enabled = True
i = 1000
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
a = X
b = Y
End Sub

Private Sub Timer1_Timer()
i = i - 50
Form1.Cls
Form1.Circle (a, b), i
If i = 0 Then
Timer1.Enabled = False
Form1.Cls