How to make vertical progress bar?

Hi,

I use this code below to run horizontal progress bar.
is there any code how to make Vertical Progress Bar, please?

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub DemoProgress1()
    Dim intIndex As Integer
    Dim sngPercent As Single
    Dim intmax As Integer
    intmax = 100
    For intIndex = 1 To intmax
        sngPercent = intIndex / intmax
        ProgressStyle1 sngPercent, True
        DoEvents
        Sleep 100
    Next
End Sub

Sub ProgressStyle1(Percent As Single, ShowValue As Boolean)
    Label1.Width = Int(Label1.Tag * Percent)
End Sub

Private Sub CommandButton1_Click()
    DemoProgress1
End Sub

Private Sub UserForm_Initialize()
    Label1.Tag = Label1.Width
    Label1.Width = 0
End Sub

Thanks in advance for every small helps and efforts.

Best Regards,
Iqbal