Membuat PrograssBar vb 6.0

untuk membuat sebuah progressbar yang harus dilakukan ialah:
->buka program vb 6.0
->tambahkan komponen Microsoft Windows Common Controls 6.0 (SP6)

Penambahan komponen
->Tambahkan komponen progressbar dan timer pada form, seperti gambar berikut:

->ubah properti name progresbar1 menjadi p1, dan tambahkan intervel timer1 menjadi 300
->tambahkan form baru
->untuk meyakinkan semua komponen telah siap lihat gambar dibawah ini:

->Setelah menambahkan form baru ketikanlah sintak berikut:

Private Sub Timer1_Timer()
Dim a As Integer
p1.Min = 0
p1.Max = 10000
For a = 1 To p1.Max
a = a + 1
p1.Value = a
Next a
If p1.Value = 10000 Then
Unload Me
Form2.Show
End If
End Sub


---=I wish you can do iT=----