Membuat Caption Form Berjalan Di Visual Basic 6.0

Membuat caption form berjalan ini cukup sederhana namun sangat berharga, jhaha…, hasilnya seperti yang kita lihat di caption blog blog, yang berjalan kian kemari tak tentu arah. Ok, untuk membuat captionnya berjalan masukkan sebuah timer ke dalam form dan ubah intervalnya menjadi 100, lalu masukkan coding berikut ke jendela form :

Dim Bergerak As Integer

Dim Teks As String

Private Sub Form_Load()

Teks = Me.Caption

End Sub

Private Sub Timer1_Timer()

Me.Caption = Bergerak

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

Me.Caption = Teks

End Sub

Setelah itu jalankan program (F5)