Private Sub Command1_Click()
Timer1.Enabled = True

End Sub

Private Sub Command2_Click()
Image1.Left = 240
Image2.Left = 240


End Sub

Private Sub Command3_Click()
End

End Sub

Private Sub Command4_Click()
Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()
Randomize
Dim a As Integer
a = Int(Rnd * 2) + 1
If a = 1 Then Image1.Left = Image1.Left + 200
If a = 2 Then Image2.Left = Image2.Left + 200
If Image1.Left >= 3240 Then
MsgBox ("灰機贏")
Timer1.Enabled = falsh
End If
If Image2.Left >= 3240 Then
MsgBox ("紅機贏")
timer2.Enabled = falsh


End If










End Sub