Vb progressbar.

ahaha.. kali ini saya akan membuat progress bar.. udah tau belum progress bar itu apah??
itu lohh yang loading2 tea.. ahaha
ok pertama2 buka vb nya.. lalu pilih standar exe .
jika sudah, oyah karna di toolbox nya belum ada progress bar nya maka kita ambil di component yaitu microsoft windows common controls 6.0(sp6).
untuk ke component nya, tekan ajah ctrl+t atau di toolbox klik kanan lalu pilih component atau di bar atas pilih project lalu dibawah ada component ,klik !..
nah,, cari microsoft windows common controls 6.0(sp6).
atau seperti gambar dibawah ini..

nah.. centang microsoft windows commont controls 6.0 nya,apply lalu klik ok!..
jika sudah ,liat di toolbox maka akan bertambah tool2 lain nya..
klik 2 kali progres bar..
atau seperti gambar dibawah ini..

dan tambah kan command button 1..
lalu ganti nama commandbutton = "cmdgo" dan progressbarnya = "p" tanpa tanda kutip.
ahaha.. jika udah jangan lupa seret progressbarnya biar jadi panjang.. biar ga terlalu garing(kecepetan loading nya.. ehhehe) tapi jangan terlalu panjang juga.. ahahah
jika udah,tinggal ketik coding nya dibawah ini di command button cmdgo..

Private Sub cmdgo_Click()
Dim i As Integer
p.Min = 0
p.Max = 10000
For i = 1 To 10000
p.Value = i
Next
p.Value = 0
MsgBox "yeah.. sukses", vbInformation, "DOTCOMNET"
end sub
beres deh.. tinggal dijalanin !
hehehe
salam DOTCOMNET