'pbrLabel as label
'pbrframe as frame
 
Private min As Integer
Private max As Integer
 
 
Public Sub SetProgressbar(ByVal v As Integer)
    pbrLabel = String$((Me.Width / 8) / (max - min) * (v - min), Chr(110))
    Me.Repaint
End Sub
 
Public Sub progressbar(ByVal progresscolor As Long, ByVal minValue As Integer, _
  ByVal maxValue As Integer)
 
    min = minValue
    max = maxValue
 
    With pbrFrame
        .Left = -1
        .Width = Me.Width
        .Height = 20
        .Top = Me.Height - .Height - 10
    End With
 
    With pbrLabel
        .Font.Name = "Wingdings"
        .Font.Size = 10
        .ForeColor = progresscolor
        .Left = 0
        .Width = pbrFrame.Width + 5
        .Top = 0
        .Height = pbrFrame.Height - 10
    End With
 
    Me.Repaint
 
End Sub

Sub test()
 
    Dim frm As New UserForm1
 
    With frm
        .Width = 400
        .Height = 200
        .progressbar vbBlue, 100, 200
        .SetProgressbar 120
        .Show
    End With
 
    Unload frm
    Set frm = Nothing
End Sub

Gru?

BernyH