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
Enjoy...