Прогрессбар в статус баре (как в IE) - VB

Private Declare Function SetParent Lib 'user32' (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Form_Load()
        SetParent Me.ProgressBar1.hWnd, Me.StatusBar1.hWnd
End Sub
Private Sub Form_Resize()
    With Me.ProgressBar1
        .Left = Me.StatusBar1.Panels(2).Left + 2 * Screen.TwipsPerPixelX
        .Top = 2.5 * Screen.TwipsPerPixelY
        .Width = Me.StatusBar1.Panels(2).Width - 5 * Screen.TwipsPerPixelX
        .Height = Me.StatusBar1.Height - 4 * Screen.TwipsPerPixelY
    End With
End Sub