Cara Membuat Label Berjalan di Visual Basic

Kali ini saya akan memposting tentang Cara Membuat Label Berjalan di Visual Basic 6.0. Ikuti perintah dibawah ini ya!

1. Buka Visual Basic 6.0, buat project baru Standard EXE
2. Buat Label baru bernama Label1. Buat juga Timer baru bernama Timer1.
3. Coding berjalan dari kiri ke kanan:

   Dim kalimat As String
   Dim panjang As Integer
   Dim jalan As Boolean
   Private Sub Form_Load()
   jalan = True
   kalimat = "SELAMAT DATANG "
   panjang = Len(kalimat)
   Label1 = kalimat
   Label1.Refresh
   Timer1.Enabled = True
   Timer1.Interval = 100
   End Sub
   Private Sub Form_Unload(Cancel As Integer)
   jalan = False
   End Sub
   Private Sub Timer1_Timer()
   If jalan Then
   kalimat = Right(kalimat, 1) & Left(kalimat, panjang - 1)Label1 = kalimat
   Label1.Refresh
   Else
   Timer1.Enabled = False
   End If
   End Sub

4. Dan ini coding berjalan dari kanan ke kiri:
   

   Dim kalimat As String
   Dim panjang As Integer
   Dim jalan As Boolean
   Private Sub Form_Load()
   jalan = True
   kalimat = "SELAMAT DATANG "
   panjang = Len(kalimat)
   Label1 = kalimat
   Label1.Refresh
   Timer1.Enabled = True
   Timer1.Interval = 100
   End Sub
   Private Sub Form_Unload(Cancel As Integer)
   jalan = False
   End Sub
   Private Sub Timer1_Timer()
   If jalan Then
   kalimat = Right(kalimat, panjang - 1) & Left(kalimat, 1)
   Label1 = kalimat
   Label1.Refresh
   Else
   Timer1.Enabled = False
   End If
   End Sub

5. Ganti tulisan SELAMAT DATANG dengan tulisan yang ingin digerakkan. Ganti angka 100 dengan angka yang diinginkan. Semakin besar angkanya, semakin lambat jalannya. Begitu juga sebaliknya.

Selamat Mencoba! Semoga Berhasil!