Membuat Judul Form Berjalan Visual Basic 6.0

Source code berikut untuk membuat teks berjalan pada caption form.

Buat 1 project dengan :
1 Form
1 Timer (set interval = 200)
Copy source code berikut pada Form :

Dim teksJalan As String

Private Sub Form_Load()
teksJalan = "Teks ini berjalan pada caption Form. "
End Sub

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

Suka Dengan Artikel Ini ?

Anda baru saja membaca artikel yang berkategori Pendidikan / Visual Basic 6.0 dengan judul "Membuat Judul Form Berjalan Visual Basic 6.0". Anda bisa bookmark halaman ini dengan URL https://blog17lamers.blogspot.com/2013/04/membuat-judul-form-berjalan-visual.html.