Доброе время суток !
Имею VB6.0
При создании EXE,DLL на CommandBars("Standard") визуализируеться ProgressBar
Как воспроизвести такой эффект ?

Переприсвоение родителя делал ......

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

Но визуализации обьекта ProgressBar не получил ?
Помогите кто знает, кто умеет ?

Коррдинаты - безусловно .....
Может неверно указал HWnd CommandBar ?

Точно - неверен HWnd .............

Если в Outlook определять HWnd
Application.ActiveExplorer.CommandBars.Item("FTP_FOSS")

Это использовать
Declare Function apiFindWindow Lib "User32" Alias "FindWindowA" (ByVal lpclassname As Any, ByVal lpCaption As Any) As Long
и функцию для вложенного WindowChild (на память не помню)
В строгом соответствии с иерархией обьетов Application.ActiveExplorer.CommandBars.Item("FTP_FOSS")

Правильно понимаю ??????

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Sub Command1_Click()
Dim I As Long
I = FindWindowEx(0, 0, "rctrl_renwnd32", "Входящие - Microsoft Outlook")
I = FindWindowEx(I, 0, "MsoCommandBarDock", "MsoDockTop")
I = FindWindowEx(I, 0, "MsoCommandBar", "FTP_FOSS")
MsgBox Hex(I)
End Sub

Так кажеться оптимально .....