Private Sub SetApplicationAsChild(ByVal CallingApplication 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.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(), "Info")
    End Try
  End Sub