MEMBUAT TEKS BERJALAN DENGAN VB NET

Berikut cara membuat teks berjalan dengan VB NET : 

1. Membuat project baru dengan vb.net
2. Membuat form dengan menambahkan sebuah label
3. Bentuk form seperti gambar di bawah ini

4. Tambahkan sebuah timer
5. Atur Properti Timer Enable=True
6. Klik dua kali timer
7. Tulis koding di bawah ini

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Timer1.Tick
    Label1.Text = Bergerak
    Teks = Microsoft.VisualBasic.Right(Teks, Len(Teks) - 1)
& Microsoft.VisualBasic.Left(Teks, 1)
    Label1.Text = Teks
End Sub

8. Klik dua kali judul form
9. Ketik coding di bawah ini

Private Sub MembuatTeksBerjalan_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Teks = Label1.Text
End Sub

10. Coding lengkap dapat dilihat dibawah ini

Public Class MembuatTeksBerjalan

Dim Bergerak As Integer
Dim Teks As String

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Timer1.Tick
        Label1.Text = Bergerak
        Teks = Microsoft.VisualBasic.Right(Teks, Len(Teks) - 1)
& Microsoft.VisualBasic.Left(Teks, 1)
        Label1.Text = Teks
    End Sub

    Private Sub MembuatTeksBerjalan_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Teks = Label1.Text
    End Sub
End Class

Begitulah cara membuat teks berjalan dengan VB NET, semoga bermanfaat.