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