Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" ( _
    ByVal hWnd1 As Long, _
    ByVal hWnd2 As Long, ByVal lpsz1 As String, _
    ByVal lpsz2 As String) As Long
 
 
Private Declare Function SetParent Lib "user32.dll" ( _
    ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
 
 
Private Sub MDIForm_Load()
    Dim hClient As Long
 
    hClient = FindWindowEx(Me.hwnd, 0, "MDICLIENT", "")
    SetParent Picture1.hwnd, hClient
End Sub