[Code=’VB.NET’]Private Sub Command1_Click()
Timer1.Enabled = True
End SubPrivate Sub Command2_Click()
Shape1.Left = 360
Shape2.Left = 360
End Sub
Private Sub Form_Load()
Timer1.Interval = 10
Timer1.Enabled = False
Shape1.Left = 360
Shape2.Left = 360
End Sub
Private Sub Timer1_Timer()
Dim a, b As Integer
Randomize
Shape1.Left = Shape1.Left + Rnd * 20
Shape2.Left = Shape2.Left + Rnd * 20
If Shape1.Left > 8400 Then
Timer1.Enabled = False
c = MsgBox(“kazanan araba beyaz”)
End If
If Shape2.Left > 8400 Then
Timer1.Enabled = False
c = MsgBox(“siyah araba kazandı “)
End If
End Sub[/Code]