''' <summary>
    ''' Die Prozedur startet die übergebene Anwendung und setzt sie in die 
    ' aufrufende Form.
    ''' </summary>
    ''' <param name="ProcessName"></param>
    ''' <param name="p">Panel-Control, in das die Anwendung eingebettet 
    ' werden soll</param>
    Private Sub SetApplicationAsChild(ByVal ProcessName As String, _
      ByVal p As System.Windows.Forms.Panel)
 
        ' Fehlerbehandlung einschalten.
        Try
            ' Process starten ( ... notepad.exe ... ).
            Dim hProcess As System.Diagnostics.Process = _
                System.Diagnostics.Process.GetProcessesByName(ProcessName)(0)
            ' 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(), "Info")
        End Try
    End Sub