Membuat Running Text dengan VB

Pada postingan kali ini saya akan memberikan trik mebuat Running text (teks berjalan) pada Visual Basic. Cukup simple tapi pasti berguna untuk mempercantik tampilan aplikasi yang akan Anda buat.
Membuat Animasi Running Text (teks berjalan)

Berikut adalah langkah-langkah yang harus anda lakukan :
1) Pertama bukalah program Visual Basic Anda.
2) Tambahkan komponen-komponen ke dalam form sebagai berikut: 1buah Label, 1buah textbox, 1buah command button & sebuah timer.
3) Atur property masing-masing komponen sebagai berikut :
Komponen
Nama Properti : Nilai
Label Caption : Masukkan sebuah kata atau kalimat !
Textbox Alignment : 2-Center
CommandButton Caption Start
Timer : Enabled
Interval : False
1000
4) Klik ganda pada komponen timer, lalu tambahkan perintah di bawah ini.
Private Sub Timer1_Timer()
Dim s As String
s = Text1.Text
If Text1.Text <> "" Then
s = Mid(s, 2, Len(s) - 1) & Left(s, 1)
End If
Text1.Text = s
End Sub
5) Klik ganda pada komponen CommandButton(Command1), lalu tambahkan perintah di bawah ini pada event Command1 Click.
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Masukan Karakter", vbInformation, "Information"
s = ""
End If
If Command1.Caption = "Start" Then
Timer1.Enabled = True"
Command1.Caption = "Stop"
ElseIf Command1.Caption = "Stop" Then
Timer1.Enabled = "False"
Command1.Caption = "Start"
End If
End Sub
6) Simpan lalu jalankan program Anda untuk melihat hasilnya.
Selamat mencoba semoga bermanfaat.