Public Class Form1
    Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As IntPtr, _
      ByVal hWndNewParent As IntPtr) As IntPtr
    Declare Function SetWindowPos Lib "user32" (ByVal hwnd As IntPtr, 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 WithEvents Btn As New Button, Pnl As New Panel
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.ClientSize = New Size(810, 650)
        Pnl.SetBounds(5, 5, 800, 600)
        Btn.SetBounds(350, 615, 100, 25)
        Btn.Text = "Start Notepad"
        Me.Controls.AddRange(New Control() {Btn, Pnl})
    End Sub
 
    Private Sub Btn_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Btn.Click
        Dim p As Process = Process.Start("Notepad.exe")
        p.WaitForInputIdle()
        SetParent(p.MainWindowHandle, Me.Pnl.Handle)
        SetWindowPos(p.MainWindowHandle, 0, 0, 0, Me.Pnl.Width, Me.Pnl.Height, _
          0)
    End Sub
End Class