SUB VBMAKECHILD(BYVAL nChWND AS LONG, _
                BYVAL nPhWND AS LONG, _
                BYVAL x AS LONG, _
                BYVAL y AS LONG) 
 
    SetParent nChWND, nPhWND
    SetWindowpos nChWND,0,x,y,0,0,SWP_NOSIZE OR SWP_NOZORDER
 
END SUB

Private Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal _
  hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal _
hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOZORDER = &H4