progressbar di vb6

1.tambah kan componen windows common controls 6.0 (SP 6)

2.tambahkan timer dengan interval (100)
3.klik dua kali pada timer1
script:
If ProgressBar1.Value = 100 Then
ProgressBar1.Value = 0
Else
ProgressBar1.Value = Val(ProgressBar1.Value) + Val(1)
End If

4.penampakan: