Private Sub Command1_Click()
Dim intI As Integer
ProgressBar1.Min = 1
ProgressBar1.Max = 10000
For intI = ProgressBar1.Min To ProgressBar1.Max
ProgressBar1.Value = intI
Next intI
End Sub
Éric Moreau, MCPD, Visual Developer - Visual Basic MVP Conseiller Principal / Senior Consultant Moer inc. http://www.emoreau.com