Public Class Form1
    Declare Function SetParent Lib "user32" (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 Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.SetBounds(0, 0, 800, 600)
        Me.CenterToScreen()
        TabControl1.SetBounds(10, 10, 775, 550)
        Dim p As Process = Process.Start("Notepad")
        p.WaitForInputIdle()
        SetParent(p.MainWindowHandle, TabControl1.TabPages(0).Handle)
        SetWindowPos(p.MainWindowHandle, 0, 0, 0, TabControl1.TabPages( _
          0).Width, TabControl1.TabPages(0).Height, 0)
    End Sub
End Class