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