Membuat Text Berjalan Pada Title Bar Form di VB 6

Pertama siapkan 1 form kemudian tambahkan 1 Timer ubah intervalnya jadi 500.

Kemudian ketikan rumus berikut

Dim teks As String

Private Sub Form_Load()
teks = "ANIMASI TEXT BERJALAN "
End Sub

Private Sub Timer1_Timer()
a = Left(teks, 1)
c = Len(teks)
b = Right(teks, c - 1)
teks = b + a
form1.Caption = teks
End Sub

Kemudian run