Dim a As Integer

Dim b As Integer

Dim c As Integer

Dim d As Byte

Dim e As Integer

Dim f As Integer

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Form_Load()

a = Shape1.Left

b = Shape1.Width

c = Shape2.Width

e = Shape1.Top

f = Shape4.Height

Timer1.Enabled = False

Timer1.Interval = 100

End Sub

Private Sub Timer1_Timer()

If Shape1.Left <= c + a Then

Shape1.Left = Shape1.Left + 50

Else

Shape1.Top = Shape1.Top + 50

End If

If Shape1.Left >= c + a Then Shape3.FillColor = &HFFFF&

If Shape1.Top >= e + f Then

Shape3.FillColor = &H0&

d = d + 1

Label1.Caption = d

Timer1.Enabled = False

Shape1.Visible = False

End If

End Sub