' ## Declare von setparent
Private Declare Function SetParent Lib "user32" _
  (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
 
'# hwnd suche Desktop
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd _
        As Long, ByVal nCmdShow As Long) As Long
 
Const SW_SHOW = &H5
Const SW_HIDE = &H0
Private Declare Function FindWindow Lib "user32" Alias _
        "FindWindowA" (ByVal lpClassName As String, ByVal _
        lpWindowName As String) As Long
 
'##### Dies in ein Modul (z.B. Form_Load) einfügen
Dim ltop As Long
    Dim lleft As Long
    Dim lwidth As Long
    Dim lheight As Long
    Dim hWndDeskTop&
    Call ShowWindow(hWndDeskTop, SW_SHOW)
    lhwnd = FindWindow(vbNullString, "Program Manager")
 
Dim lRet As Long
lRet = SetParent(Command1.hWnd, lhwnd)