Private Sub Command1_Click()
Timer1.Interval = 80
End Sub

Private Sub Timer1_Timer()
If Timer1.Interval Mod 2 = 0 Then
  Form1.Left = Form1.Left - Timer1.Interval
  Form1.Top = Form1.Top + Timer1.Interval
  Beep
Else
  Form1.Left = Form1.Left + Timer1.Interval
  Form1.Top = Form1.Top - Timer1.Interval
  Beep
End If
Timer1.Interval = Timer1.Interval - 1
End Sub

App.Major & "." & App.Minor; "." & App.Revision

Do While Not EOF(1)

Loop