如何在Excel VBA中设置进度条

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub dfff()
    UserForm1.Show
        UserForm1.Label2.Top = UserForm1.Label1.Top
        UserForm1.Label2.Left = UserForm1.Label1.Left
        UserForm1.Label3.BackStyle = fmBackStyleTransparent
    For i = 1 To 100
        UserForm1.Label3.Caption = i & "%"
        UserForm1.Label1.Width = UserForm1.Label2.Width * i / 100
        Sleep 100
        UserForm1.Repaint
    Next
        UserForm1.Label3.Caption = "加载完成！"
End Sub

窗体内设置3个label， label1背景 label2进度 label3文字。重叠放在一起，label1最低，label2中间，label3置顶