Membuat Tulisan Berjalan Pada Title Bar Pada Form Visual Basic 6.0

Pada postingan kali saya akan membuat Pesan atau yang biasa kita kenal dengan Msgbox pada Visual Basic. Nah Untuk cara membuatnya yaitu,

• kita harus jalankan VB 6.0 pilih Standar Exe,,,,
• Selanjutnya Silahkan tambahkan komponen CommandButton yang ada pada toolbox dan pada properties pilih "caption" Lalu Hapus Command1 dan gantikan dengan Tulisan Keluar....?.
• Selanjutnya Tambahkan Komponen Timer dan Pada Properties Klik Interval dan Masukkan/Tuliskan 300 sebagai nilai kecepatan dalam pergerakan Title Bar nanti

Sehingga Tampilannya akan Seperti gambar berikut ini:

Selanjutnya, Klik 2 kali pada form dan kita akan mulai memperkenalkan sebuah variabel untuk sebuah kelengkapan listing.

Pada Procedure General kita ketik listing berikut ini:

Private Husni As String

Selanjutnya klik 2 kali pada form lalu masukkan Listing Berikut ini dipertengahan Private Sub Command1_Click() dan End Sub:

Husni = "Latihan Title Bar Bergerak Pada Form VB 6.0 (AlHusni)"

Husni = Space(50) & Husni

Selanjutnya Klik 2 Kali Pada Timer1 dan masukkan Code berikut ini dipertengahan Private Sub Timer1_Timer() dan End Sub

Husni = Mid(Husni, 2) & Left(Husni, 1)

Form1.Caption = Husni

Setelah Selesai semua, coba anda jalankan Program Tersebut dan lihat Hasilnya Maka Title Bar akan Berjalan sesuai dengan Perintah Listing Yang telah kita masukkan tadi. 

Latihan Title Bar Berjalan

Jika ada Kesalahan penulisan maka Secara Tidak langsung project anda gagal.