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

Norie and Milz,

Appreciated to all of your efforts Guys.
It's working well.
For the Norie code, the bar is starting from the top to the bottom.
And for Milz code, yes..it's working from bottom to top.

Again, big thanks to all of you Guys.
I will add excellent reputation to all of you.

Best Regards,
Iqbal

Hi guys, quick question, this code works with a label in a Userform or the label is placed directly in the worksheet? I'm trying to make vertical down to up progress bars (I've achieved it in a userform) but I'd like to do it directly in the worksheet (ActiveX label)