Araba Yarışı
Gerekenler:1 adet buton,2 adet shape,2 adet label ,1 adet timer

*************************

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

Timer1.Interval = 50

Shape1.Left = 100

Shape2.Left = 100

End Sub

Private Sub Timer1_Timer()

a = Rnd * (100)

b = Rnd * (150)

Shape1.Left = Shape1.Left + a

Shape2.Left = Shape2.Left + b

If Shape1.Left + Shape1.Width >= Form1.Width Then

MsgBox (“FERRARİ Kırmızı Kazandı”)

Timer1.Enabled = False: Exit Sub

End If

If Shape2.Left + Shape2.Width >= Form1.Width Then

MsgBox (“(((((:ASFALT A?LADI BEEEEEE:))))”)

MsgBox (“(((((:ARABANIN HAKKINI VER HAKKINI:))))”)

Timer1.Enabled = False: Exit Sub

End If

Label1.Left = Label1.Left + a

Label2.Left = Label2.Left + b

End Sub