Description: The increase in FORM1 Label1 label 1, 2 TIMER object, respectively, Timer1, Timer2 code is as follows: Private Sub Form_Load () Timer1.Interval = 100 Timer2.Interval = 100 Timer1.Enabled = True Timer2.Enabled = False End Sub Private Sub Timer1_Timer () Label1.Left = Label1.Left+ 50 If Label1.Left+ Label1.Width> = Form1.Width Then Timer2.Enabled = True Timer1.Enabled = False End If End Sub Private Sub Timer2_Timer () Label1.Left = Label1.Left- 50 If Label1.Left < = 0 Then Timer1.Enabled = True Timer2.Enabled = False End If End Sub
To Search:
File list (Check if you may need any files):
cod1.txt
VB代码.doc
Download