Private Declare Function SetParent Lib "user32" _
  (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
 
Private Declare Function FindWindowEx Lib "user32" Alias _
   "FindWindowExA" (ByVal hWnd1 As Long, _
   ByVal hWnd2 As Long, ByVal lpsz1 As String, _
   ByVal lpsz2 As String) As Long
 
Private Declare Function GetClientRect Lib "user32" _
   (ByVal hwnd As Long, lpRect As RECT) As Long
 
 
Private Declare Function MoveWindow Lib "user32" _
  (ByVal hwnd As Long, ByVal x As Long, _
   ByVal y As Long, ByVal nWidth As Long, _
   ByVal nHeight As Long, ByVal bRepaint As Long) As Long
 
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
Private hClient As Long
 
Private Sub MDIForm_Load()
   hClient = FindWindowEx(hwnd, 0, "MDIClient", "")
   SetParent MDIPic.hwnd, hClient
   Form1.Show
End Sub
 
Private Sub MDIForm_Resize()
   Dim cr As RECT
   GetClientRect hClient, cr
   MoveWindow MDIPic.hwnd, cr.Left, cr.Top, cr.Right, cr.Bottom, True
End Sub