Belajar Visual Basic

Buat 1 command dan 1 buah ProgressBar
dan copy code dibawah ini:

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