01.Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
02.Label1.Left = Label1.Left - 10
03.If Label1.Left < 0 Then
04. Timer2.Enabled = True
05.End If
06.If Label1.Left < 0 - Label1.Width Then
07. Timer1.Enabled = False
08. Label1.Left = Me.Width
09.End If
10. Me.Refresh()
11.End Sub
12.
13.Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
14.Label2.Left = Label2.Left - 10
15.If Label2.Left < 0 Then
16. Timer1.Enabled = True
17.End If
18.If Label2.Left < 0 - Label2.Width Then
19. Timer2.Enabled = False
20. Label2.Left = Me.Width
21.End If
22. Me.Refresh()
23.End Sub
24.
25.Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
26. Label1.Left = Me.Width
27. Label2.Left = Me.Width
28.End Sub
