Cara Membuat Form Loading dalam VB 6

Langkah pertama buat form baru..

Lalu klik kanan pada ToolBox.. Klik Components.. Pilih Microsoft Windows Common Control 6.0(SP6).. Ceklist and OK..

Setelah itu muncul tambahan icon pada ToolBox..

1.      Pilih ProgressBar, tentukan sendiri ukurannya..

Lalu diklik kanan – properties – Ubah OLEDropMode menjadi 1-ccOLEDropManual

Untuk menjadi halus ubah Scrolling mnjadi 1-ccScrollingSmooth

2.      Klik Timer

Pilih interval 100 pada properties

Tulis dalam listing;

Private Sub Timer1_Timer()

If ProgressBar1.Value >= 100 Then

Unload Me

Else

ProgressBar1.Value = ProgressBar1.Value + 10

End If

End Sub

Selamat Mencoba..

Tak Apa Belajar 3 Tahun walaupun hanya 1 ILMU yang kau dapat..

Niatkan Diri Anda Untuk Terus Belajar :)