vba进度条制作

Sub 进度条()
    Dim rowTotal As Integer
    rowTotal = 100
    For i = 1 To rowTotal Step 1
        prgramBarShow.Show 0
        prgramBarShow.lblProgress.Width = prgramBarShow.lblBack.Width * i / rowTotal
        prgramBarShow.percert.Caption = Format(Round(i / rowTotal * 100, 2), "0") & "%"
        
        s = Timer
        While Timer - s < 0.1
            DoEvents
        Wend
    Next i
    Unload prgramBarShow
End Sub