Declare Function SetParent Lib "user32.dll" ( _
                                                ByVal hWndChild As Int32, _
                                                ByVal hWndNewParent As Int32) _
                                                As Int32
    Declare Function SetWindowPos Lib "user32.dll" ( _
                                                ByVal hwnd As Int32, _
                                                ByVal hWndInsertAfter As Int32, _
                                                ByVal x As Int32, _
                                                ByVal y As Int32, _
                                                ByVal cx As Int32, _
                                                ByVal cy As Int32, _
                                                ByVal wFlags As Int32) As Int32
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim f As String = "C:\temp\winword.doc"
        Dim p As Process = System.Diagnostics.Process.Start(f)
        Dim hwnd As IntPtr = p.MainWindowHandle
        Me.SetParent(hwnd.ToInt32, Me.Handle.ToInt32)
        Me.SetWindowPos(hwnd.ToInt32, 0, 0, 0, Me.Width, Me.Height, 0)
    End Sub