Private Const SW_SHOWNORMAL As Int32 = 1
 
    Private Declare Function SetParent Lib "user32.dll" ( _
                                               ByVal hWndChild As Int32, _
                                               ByVal hWndNewParent As Int32) As _
                                               Int32
 
    Private 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 Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Int32, _
                                                        ByVal nCmdShow As _
                                                        Int32) _
                                                        As Int32
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim f As String = "calc"
        '// Dim p As Process = System.Diagnostics.Process.Start(f)
        Dim p As New Process
        Dim hwnd As IntPtr = IntPtr.Zero
        p.StartInfo.FileName = f
        '// p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
        '// p.StartInfo.UseShellExecute = False
        p.Start()
        hwnd = p.MainWindowHandle
        SetParent(hwnd.ToInt32, Me.Panel1.Handle.ToInt32)
        '// ggf. Me.SetWindowPos(hwnd.ToInt32, 0, 0, 0, Me.Panel1.Width, 
        ' Me.Panel1.Height, 0)
        ShowWindow(hwnd.ToInt32, SW_SHOWNORMAL)
    End Sub