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
 
    Declare Function ShowWindow Lib "user32" (ByVal hWnd As IntPtr, ByVal _
    nCmdShow As Int32) As Boolean
    Declare Function GetForegroundWindow Lib "user32" () As IntPtr
    Const SW_MAXIMIZE As Int32 = 3
    Const GWL_STYLE As Int32 = -16
 
 
    Declare Auto Function SetWindowLong Lib "user32" (ByVal hWnd As IntPtr, _
     ByVal nIndex As Int32, ByVal dwNewLong As Int32) As IntPtr
 
Public progstart_pid As Process
Public pilotstart_hnd As IntPtr

        Dim FS As Object = My.Computer.FileSystem
        Dim Pfad As String
        Pfad = prog_pfad.Text
        Pfad = Replace(Pfad, "/", "\")
        Dim instance As New ProcessStartInfo
        instance.WorkingDirectory = FS.GetParentPath(Pfad)
        instance.FileName = Pfad
 
        If FS.FileExists(Pfad) Then
 
            Dim p As Process = Process.Start(instance)
            progstart_pid = p
            p.WaitForInputIdle()
            Dim hnd As IntPtr = GetForegroundWindow
            progstart_hnd = hnd
            SetParent(hnd, TabControl1.TabPages(5).Handle)
            SetWindowLong(p.MainWindowHandle, GWL_STYLE, 0)
            ShowWindow(hnd, SW_MAXIMIZE)
            SetWindowPos(hnd, 0, 0, -28, TabControl1.TabPages( _
                   5).Width, TabControl1.TabPages(5).Height, 0)
 
        End If

progstart_pid.Kill()