Vertical progress bar with label and changing height - only "grows" downward

[kcsteele]

I created a horizontal progress bar by increasing the width value of a label, and the label grew to the right, which was fine.

I then tried to create a vertical progress bar, but it grows down instead of up from the bottom.

Sub RunStatusBar4(cellNum As Integer, totalCells As Integer)    
With StatusBar
        .Bar4.Height = 426 * (cellNum / totalCells)
        .FrameProgressBarFull.Caption = Int((cellNum / totalCells) * 100) & "%"
        .LabelTotalValuesChanged = cellNum
    End With
End Sub