في الـform
Timer1.Start


في الـtimer
     If Label1.Left < Me.Width Then
            Label1.Left += 6
        Else
            Label1.Left = -Label1.Width
        End If
    End Sub