Рет қаралды 3,591
Visual Basic A Intro : • Visual basic 6.0 softw...
Program:
Private Sub Command1_Click()
Timer1.Interval = 100
End Sub
Private Sub Form_Load()
Timer1.Interval = 0
End Sub
Private Sub Timer1_Timer()
Frame1.Left = Frame1.Left + 100
If Frame1.Left (Greater then symbol varum friends) Me.Width Then
Frame1.Left = 0
End If
End Sub
Private Sub stop_Click()
Timer1.Interval = 0
End Sub