Dim Exefile As String = <Ausführbare Datei>
Dim p As New Process
Dim pWindowhandle As System.IntPtr
 
p.StartInfo.FileName = exefile
p.Start()
p.WaitForInputIdle()
 
If Not CBool(p.MainWindowHandle) Then
     Do
         System.Threading.Thread.Sleep(100)
         pWindowhandle = Process.GetProcessById(p.Id).MainWindowHandle
     Loop While pWindowhandle = IntPtr.Zero
Else
     pWindowhandle = p.MainWindowHandle
End If
 
If p IsNot Nothing Then SetParent(pWindowhandle, Me.Panel1.Handle)