Working Progress Bar [Resolved]

[BefunMunkToloGen]

I'm trying to learn how to make my progress bar work but im really tired. I've given it a go though but need some help.

i have some text that starts at 0 and goes to 500. I would like to know how to make my progress bar show how much has been done whilst it's counting up to 500.

Thanks in advance

[Joacim Andersson]

The progressbar have a Min and a Max property. In your case you should set Min to 0 and Max to 500. Then all you have to do is change its Value property to your counter value and the progressbar will do the rest.

[MartinLiss]

Here is some working code.

Private Sub Command1_Click()
 
    Dim x As Integer
    Dim dblClock As Double
    
    
    For x = 1 To 500
        ' This code just delays the loop a bit so we can see
        ' the progressbar moving
        dblClock = Timer
        While Timer < dblClock + 0.01
            DoEvents
        Wend
    
        ProgressBar1.Value = (x / 500) * 100
   Next
End Sub
 
Private Sub Form_Load()
 
    ProgressBar1.Min = 0
    ProgressBar1.Max = 100
    
 
End Sub