DancePict

Private Sub Timer1_Timer()
If Timer1.Interval = 1 Then ' this is the code that
picture1.Left = picture1.Left - 40 ' makes the ball bounce

If picture1.Left < -100 Then
Timer1.Interval = 2
Beep
Else
picture1.Left = picture1.Left - 40
End If
End If
End Sub

Private Sub Timer2_Timer()
picture1.Left = picture1.Left + 40
If picture1.Left > 4790 Then
Timer1.Interval = 1
Beep
Else
picture1.Left = picture1.Left + 40
End If
End Sub

Private Sub Form_Load()
Form1.Height = 4770
Form1.Width = 5865
Form1.BackColor = &H0
picture1.Top = 0
picture1Left = 0
End Sub