vb2 timer

Dim A As Integer

Private Sub Form_Load()
A = 100

End Sub

Private Sub Timer1_Timer()
Form2.BackColor = RGB(Rnd * 100, Rnd * 200, Rnd * 300)
End Sub

Private Sub Timer2_Timer()
Label1.Left = Label1.Left + A
If Label1.Left >= 8000 Then
A = -100
ElseIf Label1.Left <= 100 Then
A = 100
End If
End Sub