' API's
Private Declare Function FindWindow Lib "user32" _
  Alias "FindWindowA" (ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Long
 
Private Declare Function SetParent Lib "user32" ( _
  ByVal hWndChild As Long, _
  ByVal hWndNewParent As Long) As Long

Dim lhWnd As Long
 
' Explorer-Fenster suchen
lhWnd = FindWindow("ExploreWClass", vbNullString)
If lhWnd <> 0 Then
  ' Form in Explorer Window verankern
  SetParent Me.hWnd, lhWnd
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de