Membuat loading pada vb6

1. buka VB 6
2. drag componen “textbox” ke form anda
3. drag componen “command button” ke form anda

(beri nama “Simpan” contohnya)

4. drag componen “progressbar”

(jika tidak ada pada toolbox anda,,>> klik kanan toolbox – klik component – pada tab controls, pilih “Microsoft Windows Common Controls 6.0 (sp6)”, klik ok  <<.maka component progressbar akan tampil pada toolbox anda)

5. ketik coding dibawah pada form code anda…
Codingna :

Private Sub Command1_Click()
With Me.ProgressBar1
.Appearance = ccFlat
.Scrolling = ccScrollingSmooth
.Max = 10000
.Min = 0
.Value = 0
Dim i As Integer
For i = .Min To .Max
.Value = i
Next i
MsgBox "Complete", vbInformation, "Information"
.Value = 0
End With
End Sub