StatusBar & ProgressBar

Hi!

I have a progressbar on my form, and have put it in a statusbar's panel of my form with this code:

    ShowProgressInStatusBar StatusBar, MainProgressBar, 2

Wich in turn calls this sub:

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function SendMessageAny Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Const WM_USER As Long = &H400
Private Const SB_GETRECT As Long = (WM_USER + 10)

Public Sub ShowProgressInStatusBar(StatBar As StatusBar, ProgrBar As ProgressBar, Panl As Integer)

    Dim tRC As RECT

    SendMessageAny StatBar.hwnd, SB_GETRECT, Panl - 1, tRC
    With tRC
        .Top = (.Top * Screen.TwipsPerPixelY)
        .Left = (.Left * Screen.TwipsPerPixelX)
        .Bottom = (.Bottom * Screen.TwipsPerPixelY) - .Top
        .Right = (.Right * Screen.TwipsPerPixelX) - .Left
    End With
    ' Re-parent the ProgressBar to the statusbar
    With ProgrBar
        SetParent .hwnd, StatBar.hwnd
        .Move tRC.Left, tRC.Top, tRC.Right, tRC.Bottom
        .Visible = True
        .Value = 0
    End With
End Sub

In my form_resize I use this code:

MainProgressBar.Left = StatusBar.Panels(2).Left

Problem is when I maximize my form, the progressbar doesn't change it's position (size doesn't have to). I think it's because the Statusbar gets it's resize event AFTER the form_resize has finished.

Anyone got any clue on how to solve it? I'd like not to have to use some timer or so... Maybe subclassing? Please help? How do I know when the Statusbar has finished sizing?

I was thinking: "Could I use something like WithEvents"???
Please help...


(I won't deny this msg is also for moving to the Top )

Please help!

[Serge]

Check out This Post which has an example of using this function.

Thanx Serge for the help, but that wasn't a solution. The problem is only occuring when I Maximize or Restore my window. Any more ideas?