Private Sub Form_Load()
ProgressBar1.Min = 0
ProgressBar1.Max = 100
Timer1.Interval = 1 'brzina kojom zelis da se popunjava progress izrazen u milisekundama
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1 'broj koraka kojim se popunjava progress
If ProgressBar1.Value = 100 Then
MsgBox "Progress je stigao do kraja"
Timer1.Enabled = False
End If
End Sub
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti