Visual Basic ProgressBar Timing?

[HackThePlanet]

www.vbcode.com

[Eddie J]

Hi,

How do I set a progressbar to reach it's maximum (100) after a specific time. So it takes say 2 minutes to get to full?

[Ilir Dr.]

First take a progress bar on the panel and then a Timer. Name them. In timer properties set the time interval in ms (120 ms).
On the timer set the code:

If pb.value<100 then
pb.value=pb.value+1
else
timer1.enabled=false
//something u want to do when it reaches the 100
end if

[tech_geek]

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Dim i As Integer
i = 0
pb.Min = 0
pb.Max = 120

pb.Value = 1
Do Until i = 120
Sleep 1000
i = i + 1
pb.Value = i
Loop
MsgBox "done"

End Sub