Private Sub Form_DblClick()
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Form_Load()
Shape1.Height = 135
Shape1.Width = 255
Shape1.BackStyle = 1
Shape1.BorderStyle = 1
Shape1.BorderWidth = 2
Shape1.BorderColor = &H80000004
Shape1.BackColor = &H80FF&
Shape1.DrawMode = 13
Shape1.FillStyle = 7
Shape1.Shape = 3
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
X1 = X
y1 = Y
Form1.Show
If Shape1.Left = X And Shape1.Top = Y Then
MsgBox "Kaybettin", vbCritical, "Soft Program"
End If
End Sub
Private Sub Timer1_Timer()
If Shape1.Left = X1 And Shape1.Top = y1 Then
MsgBox "Kaybettin", vbCritical, "Soft Program"
Timer1.Enabled = False
Timer2.Enabled = False
c = 0
End If
If Shape1.Left > X1 Then
For i = Shape1.Left To X1 Step -1
Shape1.Left = i
Next
End If
If Shape1.Top > y1 Then
For k = Shape1.Top To y1 Step -1
Shape1.Top = k
Next
End If
For i = Shape1.Left To X1
Shape1.Left = i
Next
For k = Shape1.Top To y1
Shape1.Top = k
Next
End Sub
Private Sub Timer2_Timer()
c = c + 10
Form1.Caption = "Puan : " & c
If c = 100 Then
Timer1.Interval = 4
End If
If c = 200 Then
Timer1.Interval = 3
End If
If c = 300 Then
Timer1.Interval = 2
End If
If d = 400 Then
Timer1.Interval = 1
End If
End Sub
ali zeki kılıç / tl 11
rocatinho@gmail.com