r@nger

Merhaba,
öncelikle 2 tane shape ekliyoruz.1 tane timer ekliyoruz.Timerin Leftini 5280 Top ise 3120 olarak değiştiriyoruz.Son olarakta 1 command button ekliyoruz.
Artık kodları eklemek kalıyor.
Kodlar:
Private Sub Command1_Click()
Timer1.Interval = 10
Timer2.Interval = 10

End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
Randomize
g = Rnd(100) * 100
Shape1.Move Shape1.Left + g
If Shape1.Left >= 8000 Then
MsgBox ("kazanan pembe araba")
End
End If
End Sub

Private Sub Timer2_Timer()
Randomize
f = Rnd(100) * 100
Shape2.Move Shape2.Left + f
If Shape2.Left >= 8000 Then
MsgBox ("kazanan beyaz araba")
End
End If

End Sub

__________________
Geri döndüm