Efek Animasi Caption Label Berjalan ke Kanan dan ke Kiri pada Area Form

Private Sub Form_Load()
Timer1.Enabled=True
End Sub

Private Sub Form_Load()
Timer1.Interval1=1
Timer1.Enabled=False
Label1.Alignment=0
Label1.Left=0
Label1.Top=500
Label1.Width=4500
Label1.Caption="CONTOH ANIMASI LABEL BERJALAN"
Form1.Height=2000
Form1.Width=7000
End Sub

Private Sub Timer1_Timer()
If Label1.Left<>Not 0 then
Label1.Left=Label1.Left + 10
If Label1.Left=3700 then
Label1.Visible=False
End If
End If
End Sub