Visual Basic

Declare Function SetParent Lib "user32" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Declare Function FindWindow Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SetWindowPos Lib "user32" (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 Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nHwnd As Long
        ' run notepad
        WinExec("notepad.exe", 1)
        ' find its hwnd
        nHwnd = FindWindow(Nothing, "Untitled - Notepad") ' <-- Error

        ' Note you must supply the EXACT Caption of the window)
        ' force it inside our form
        SetParent(nHwnd, Me.Handle.ToInt32)
        ' size it
        Dim nLeft, nTop, nWidth, nHeight As Integer
        nLeft = Me.Panel11.Left
        nTop = Me.Panel11.Top
        nWidth = Me.Panel11.Width
        nHeight = Me.Panel11.Height
        SetWindowPos(nHwnd, 1, nLeft, nTop, nWidth, nHeight, 64)

    End Sub