به سراغ من اگر بیایید

Private Sub Form_Load()
Option1.Value = False
Option2.Value = False
Text1.BackColor = vbRed
Text2.BackColor = vbBlue
Text1.Visible = False
Text2.Visible = False
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
Text1.Visible = True
Text2.Visible = False
End If
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
Text2.Visible = True
Text1.Visible = False
End If
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
Shape1.Visible = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Shape1.Visible = False
End Sub

Private Sub Timer1_Timer()
If Shape1.Shape >= 5 Then
Shape1.Shape = 0
End If
Shape1.Shape = Shape1.Shape + 1
End Sub

این برنامه تایمر است ودر زمان طراحی interval آن 1500 و enabled آن false است نام کامند1 شروع و نام کامند2 توقف است.