How To Make Scrolling Text In Textbox And Label In VB.NET

this is a good snippet and this will be very useful for you , lets start

1.open visual basic 2008/2010

2. create a new project

3. add a textbox and a timer

4. enable the timer

5.write something in the textbox (textbox1 > properties > text )

6.double click your form and erase everything and paste the code below

Public Class Form1

    Public Function MarqueeLeft(ByVal Text As String)
        Dim Str1 As String = Text.Remove(0, 1)
        Dim Str2 As String = Text(0)
        Return Str1 & Str2
    End Function
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        textbox1.Text = MarqueeLeft(textbox1.Text)
    End Sub
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub
End Class

7. now debug and enjoy the text , textbox scrolling

8.if you want to make this to label simply add a label and write something(label1>properties>text) and paste this code

Public Class Form1
    Public Function MarqueeLeft(ByVal Text As String)
        Dim Str1 As String = Text.Remove(0, 1)
        Dim Str2 As String = Text(0)
        Return Str1 & Str2
    End Function
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = MarqueeLeft(Label1.Text)
    End Sub
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub
End Class

9.debug and enjoy the text , label scrolling