I've been trying, and after some time I've figured out how to do it (a bit because it's not fully functional...)

Maybe this will lead you to a clue:

in a form_load or so:

Code:
    Dim x As Long
    Dim ret As Long
    
    x = FindWindow("SysTabControl32", "")
    ret = SetParent(Combo1.hwnd, x)
(in stead of "SysTabControl32" you might like to try these:
  • Shell_TrayWnd
  • ReBarWindow32
  • ToolbarWindow32
  • TrayNotifyWnd

)

and in a module:

Code:
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Have a go...

[Edited by RobIII on 09-26-2000 at 08:49 PM]