VB Snippet - Simple Scroll Text Example

VB Code:

Private Sub Form_Load()
 
    Label1.Left = Me.Width - Label1.Width
 
    Me.Timer1.Interval = 10
 
    Me.Timer1.Enabled = True
 
End Sub
 
Private Sub Timer1_Timer()
 
    Label1.Left = Label1.Left - 10
 
    If Label1.Left < Label1.Width * -1 Then
 
        Label1.Left = Me.Width
 
    End If
 
End Sub