Public Class Form1
 
    Private Sub SetApplicationAsChild(ByVal CallingApplication As String, ByVal _
      p As System.Windows.Forms.Panel)
 
        ' Fehlerbehandlung einschalten.
        Try
            ' Process starten ( ... film.exe ... ).
            Dim hProcess As System.Diagnostics.Process = _
              System.Diagnostics.Process.Start(CallingApplication)
            ' Siehe (... WaitForInputIdle ...)
            hProcess.WaitForInputIdle()
            ' Parent Fenster setzen.
            Win32Api.SetParent(hProcess.MainWindowHandle, p.Handle)
            'Fenster anzeigen.
            Win32Api.ShowWindow(hProcess.MainWindowHandle, Win32Api.SW_MAXIMIZE)
        Catch ex As Exception
            ' Fehlerbeschreibung bei auftretenden Fehler anzeigen.
            MessageBox.Show(ex.Message.ToString(), "Fehler beim Starten des" & _
              "Demos")
        End Try
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim p As New Process()
        Const APP_NAME As String = "C:\Programme\ALLCapture 3.0" & _
          "Testversion\Projekte\hardware.exe"
        ' Prozedur mit dem Dateinamen <APP_NAME> und das benötigte 
        ' Anzeigefenster aufrufen.
 
        SetApplicationAsChild(APP_NAME, Panel1)
 
        'p.StartInfo.FileName = APP_NAME
        'p.StartInfo.WindowStyle = ProcessWindowStyle.Normal
        'p.Start()
        'p.WaitForExit()
        'p.Close()
        'MessageBox.Show("Programm wurde geschlossen")
 
    End Sub