Private Declare Function SetParent Lib "user32" Alias "SetParent"  _

     (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long



Private Declare Function SetWindowLong Lib "user32" Alias _

     "SetWindowLongA" _

    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long



Declare Function GetForegroundWindow Lib "user32" Alias _

    "GetForegroundWindow" () As Long



Private Const WS_EX_MDICHILD  = &H00000040& 

Private Const WS_EX_WINDOWEDGE = &H00000100& 



Private Sub MakeIEClient()

    Dim IEhWnd As Long



    ' Unter der Voraussetzung, das IE das Topwindow ist:

    IEhWnd = GetForegroundWindow()



    SetParent Me.hWnd, IEhWnd

    SetWindowLong Me.hWnd, GWL_EXSTYLE, WS_EX_MDICHILD OR  WS_EX_WINDOWEDGE 



     Me.Hidde

End Sub