Progressbar with text

[kalieb]

Public Sub PictureProgress(Shape As Control, done As Integer, total As Variant)
On Error Resume Next
Dim x As Integer
x = done / total * Shape.Width
Shape.Line (0, 0)-(Shape.Width, Shape.Height), RGB(176, 212, 255), BF
Shape.Line (0, 0)-(x - 10, Shape.Height), RGB(32, 84, 144), BF
Shape.CurrentX = (Shape.Width / 2) - 100
Shape.CurrentY = (Shape.Height / 2) - 125
Shape.ForeColor = RGB(150, 150, 150)
End Sub