Progress Bar, with label on top?

[AndreBernard]

No i have not again create the new thread
Thanks for your answer Bobbles, unfortunately the link of the zip is broken :-(

Edit : But i have found the solution thanks to this thread
http://www.vbforums.com/showthread.p...=1#post3574251

In fact a simple "pb.Refresh" is needed

Public Sub TextOnProgress(pb As ProgressBar, ByVal sText As String)

    Dim hDC As Long
    Dim r As RECT
    
    hDC = GetDC(pb.hwnd)
    pb.Refresh
    SetBkMode hDC, TRANSPARENT
    GetClientRect pb.hwnd, r
    SetTextColor hDC, &HFFFFFF
    DrawText hDC, sText, -1&, r, DT_CENTER
    ReleaseDC pb.hwnd, hDC
        
End Sub

Thanks for your help
Have a good day