Forma 4 tane command butonu,4 tane option nesnesi,biri kare , di?erleri yuvarlak 5 tane shape nesnesi, bir tane de timer yerle?tiriniz.
Private Sub Timer1_Timer()
If Shape1.Left >= 15120 Or Shape1.Left <= 0 Or Shape1.Top <= 0 Or Shape1.Top > 8160 Then
Label3.Visible = True
Label4.Visible = True
yen.Visible = True
End If
Text2.Text = Shape1.Left
Text3.Text = Shape1.Top
If a1.Value = True Then
Shape1.Left = Shape1.Left - 120
End If
If a2.Value = True Then
Shape1.Left = Shape1.Left + 120
End If
If a3.Value = True Then
Shape1.Top = Shape1.Top + 120
End If
If a4.Value = True Then
Shape1.Top = Shape1.Top - 120
End If
If Shape2.Visible = True And Shape1.Top = 1920 And Shape1.Left = 840 Then
Text1.Text = Val(Text1.Text) + 10
Shape2.Visible = False
Shape3.Visible = True
End If
If Shape3.Visible = True And Shape1.Top = 1320 And Shape1.Left = 5760 Then
Text1.Text = Val(Text1.Text) + 10
Shape3.Visible = False
Shape4.Visible = True
End If
If Shape4.Visible = True And Shape1.Top = 4200 And Shape1.Left = 1560 Then
Text1.Text = Val(Text1.Text) + 10
Shape5.Visible = True
Shape4.Visible = False
End If
If Shape5.Visible = True And Shape1.Top = 6360 And Shape1.Left = 8760 Then
Text1.Text = Val(Text1.Text) + 10
Shape2.Visible = True
Shape5.Visible = False
Shape3.Visible = False
Shape4.Visible = False
End If
End Sub
Private Sub Timer2_Timer()
If Text4.Text = "1" Then
Shape1.Visible = False
Else
Shape1.Visible = True
End If
Text4.Text = Val(Text4.Text) + 1
If Text4.Text = "3" Then
Text4.Text = "0"
End If
End Sub
Anasayfa 
