Membuat Teks Dalam Label Berjalan Di Visual Basic 6.0

Untuk membuat teks berjalan dalam label ini, masukkan 2 buah label ke dalam form, yaitu label1 dan label2, ubahlah captionnya sesuka hati, sehabis itu masukkan juga 2 buah timer dan tukar intervalnya menjadi 100, lalu masuk pada jendela coding dan masukkan coding berikut :

Dim Bergerak1 As Integer

Dim Teks1 As String

Dim Bergerak2 As Integer

Dim Teks2 As String

Private Sub Form_Load()

Teks1 = Label1

Teks2 = Label2

End Sub

Private Sub Timer1_Timer()

Label1 = Bergerak1

Teks1 = Right(Teks1, Len(Teks1) - 1) & Left(Teks1, 1)

Label1 = Teks1

End Sub

Private Sub Timer2_Timer()

Label2 = Bergerak2

Teks2 = Right(Teks2, 1) & Left(Teks2, Len(Teks2) - 1)

Label2 = Teks2

End Sub

Setelah itu jalankan program (F5), maka 1 label akan berjalan ke kanan dan satu lagi ke kiri…!!!