Private Sub SetApplicationAsChild(ByVal CallingApplication As String, _
    ByVal p As System.Windows.Forms.Panel)
 
    ' Fehlerbehandlung einschalten.
    Try
      ' Process starten ( ... notepad.exe ... ).
      hProcess = Process.Start(CallingApplication)
 
      oWord = GetObject(Class:="word.application")
      'Add und nicht Open, damit die Originaldatei nicht belegt ist => 
      ' Multiuserzugriff
      oDoc = oWord.Documents.Add("C:\test.doc")
 
 
 
      ' 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