Private Sub Form_Load()
    Dim a As Integer
    a = Label1.Left
  
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Label1.Left = Label1.Left + 30
  
        
   
    If Label1.Left > landForm.Width Then
        Label1.Left = a
    End If
   
End Sub