1 shape 1 command button 2 tanede timer koyuyorsun. topun etrafa çarpmalarını ayarlıyosun kodlarda gördügün gibi.command butona çarptıgında ters yöne gidicek ve 10 puan artıcak eğer command butona çarpmassa oyun biticek msg box çıkıcak o msgboxtada puanımız görüntülenicek

tşkkrler

Dim a, b, puan Private Sub Form_Activate Timer1. Interval = 5 Timer2. Interval = 10000 a = 50 b = 50 puan = 0 End Sub Private Sub Form_MouseMove Command1. Left = X End Sub Private Sub Timer1_Timer Shape1. Top = Shape1. Top + a Shape1. Left = Shape1. Left + b If Shape1. Top + Shape1. Height >= Command1. Top And Shape1. Left >= Command1. Left And Shape1. Left <= Command1. Left + Command1. Width Then a = -a puan = puan + 10 End If If Shape1. Top > 5200 Then MsgBox puan End End If If Shape1. Left > 8000 Then b = -b If Shape1. Top < 200 Then a = -a If Shape1. Left < 100 Then b = -b End Sub Private Sub Timer2_Timer If a < 0 Then a = a - 50 Else a = a + 50 End If If b < 0 Then b = b - 50 Else b = b + 50 End If End Sub

Daha çıklayıcı bir şekilde anlatıverimisini?

Güzel olmuş