Progress bar help

[anaylor01]

I have a routine that goes through a loop 10000 times. Well it happens too quick I would like to put the progress bar in a timer so it goes off every 10th of a second.

Sub tmr_tick
Dim tmrtick As Int
tmrtick  = tmrtick + 1
If sendtype = "AreaCode" Then
    For c = tmrtick To 9999
    progressbar1.Visible = True
    ProgressBar1.Progress = (tmrtick + 1)/9999 * 100
    Next 
    End If
End Sub

 

[klaus]

Sorry, but I don't understand what exactly you want to do.
Where is the timer enabled, what time interval, where is it disabled with what criteria ?
It's the first time that I hear somebody complaining that something is too fast .

Best regards.