Vural
Yaş : 29
Kayıt tarihi : 03/08/08
Mesaj Sayısı : 1241
Paylaşımlar:
    (1000/1000)
Mutluluk:
(1000/1000)
|
 Konu: d  21.09.09 18:43 |
|
|
Timer1 İçine
Private Sub Timer1_Timer()
Randomize
a = Int(Rnd(300) * 100)
b = Int(Rnd(300) * 100)
Text1.Left = Text1.Left + a
Text2.Left = Text2.Left + b
If Text1.Left >= 5520 Then
a = MsgBox("A Arabası kazandı")
End
End If
If Text2.Left >= 5520 Then
a = MsgBox("B Arabası Kazandı")
End
End If
End Sub
Command1 Buttonunun içinede
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 25
End Sub |
|
