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
 
Private Sub Form_Load()
Dim I As Long
Show
I = FindWindow("Progman", "Program Manager")
SetParent Me.hWnd, I
End Sub

???????????????????????????????????????????????????????????
e7o.de | jetzt (wirklich) neu!