Tutorial Buat Progress Bar

Buat Standart exe
buat Form1

BorderStyle = 1 'Fixed Single
Caption = "Waiting..."
StartUpPosition = 2 'CenterScreen
LinkTopic = "Form1"
ClipControls = 'False'

Buat command Button 
Beri nama : Command2
Caption = "?"

Buat Command Button 
Beri nama : Command1
Caption = "Mulai"

Buat Timer 
Interval : 100
Enabled = 'False'

Buat Progress Bar
caranya : Ctrl + T (Component)
cari : Windows Common control 6.0 (sp6.0)
Appearance = 1

Kalau sudah Klik kanan "View Code"

Masukin :

Code:

Private Sub Command2_Click()
MsgBox "Coded by don-po", vbInformation + vbOKOnly, "About..."
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub ProgressBar1_OLECompleteDrag(Effect As Long)
    End
End Sub

Private Sub Timer1_Timer()
    Static i As Integer
    i = i + 1
    If i >= ProgressBar1.Max Then
        i = ProgressBar1.Max
    Else
        ProgressBar1.Value = i
    End If
End Sub

'Coded by don-po

 
^^v Enjoy...