Cara Membuat title bar bergerak pada VB 6.0

Tidak hanya pada blog bisa membuat title bar berjalan tetapi di VB 6.0 juga bisa! walaupun agak sedikit berbeda tapi cara pembuatannya juga gampang ayoo langsung saja kita buat.!
untuk DEMO dapat Kamu Download HERE
1. Buka Program VB 6.0 kamu, kemudian buat fNew Project pilih Standard Exe aja biar cepat
2. Kemudian Buatlah Sebuah Timer 1 buah dan Command Button 1 buah lihat gamabar dibawah ini

3. setelah kamu buat seperti yang saya suruh diatas sekarang klik kanan pada from plihi View Code setelah itu COPAS code berikut

Private iseng As String

Private Sub Command1_Click()
Unload Me
MsgBox "BY:Iseng2010.blogspot.com"
End Sub

Private Sub Form_Load()
iseng = "iseng2010.blogspot.com PROJECT VB 6.0"
iseng = Space(50) & iseng
End Sub

Private Sub Timer1_Timer()
iseng = Mid(iseng, 2) & Left(iseng, 1)
Form1.Caption = iseng
End Sub

setelah memasukkan code diatas ini kemudian kembali ke form, kemudian pada timernya buat intervalnya 300 supaya bekerja.!
dan selesai coba tekna F5 lihatkan hasilnya..!!
NB:
Setiap CODE yang saya beri warna Merah dapat diganti
Jika titak tidak bekerja maka coba kamu perhatikan pada Timernya jika intervalnya masih 0 maka segera kamu isi intervalnya 300 kemudian coba view lagi


Semoga bermanfaat dan selamat bekerja