Working Progress Bar [Resolved]

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

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.

Here is some working code.

VB 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