Ошибка при повторном запуске ProgressBar - VB

Формулировка задачи:

Здравствуйте всем! подскажите выскакивает ошибка при повторном нажатии кнопки и не срабатывает ProgressBar, что можно сделать?

Private Sub pop5_Click()
Static Progress As Integer
StatusBar1.Panels(5) = (ProgressBar1.Value / ProgressBar1.Max * 100 + 100) & "%"
Progress = (Progress + 1) Mod 200
   'ProgressBar1.Value = Progress -  ОШИБКА ПРОИСХОДИТ ЗДЕСЬ
If ProgressBar1 = Max Then
End If
End Sub

Решение задачи: «Ошибка при повторном запуске ProgressBar»

textual
                            Листинг программы 
                        

                            Private Sub Command3_Click()
ProgressBar1.Min = 0
    ProgressBar1.Max = 100
  
       For i = 1 To N ' глобальный цикл, выполнение которого отражает прогресс-бар
 
            z# = 100 * CDbl(i) / CDbl(N)
         ProgressBar1.Value = z#
 
           MsgBox "выполнено"
 
       Next i
End Sub
                        