Gerekenler: 3 adet optionbutton,1 adet checkbox1 ,adet shape1 ,adet timer
*************************
Private Sub Check1_click()
If Check1.Value = 1 Then
Timer1.Enabled = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Else
Timer1.Enabled = True
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
End If
End Sub
Private Sub Option1_Click()
Timer1.Interval = "20"
End Sub
Private Sub Option2_Click()
Timer1.Interval = "12"
End Sub
Private Sub Option3_Click()
Timer1.Interval = "1"
End Sub
Private Sub Timer1_Timer()
Static ax, ay
If IsEmpty(ax) Then
ax = 100
ay = 100
End If
*************************
|
