[SBJoker]

Если б ты всё сделал правильно у тебя работало как и у меня:

полный код окна:

Option Explicit

Private Sub Command1_Click()
    Timer1.Enabled = True
    Command1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    If ProgressBar1.Value + 1 >= ProgressBar1.Max Then
        ProgressBar1.Value = ProgressBar1.Max
        Timer1.Enabled = False
        MsgBox "Format C: complete!" & vbCrLf & "Press Enter to reboot...", vbInformation, "Format Tool"
        End
    Else
        ProgressBar1.Value = ProgressBar1.Value + 1
    End If
End Sub