Private Sub StartProgramm(ByVal Programm As String, ByVal Seite As TabPage, _
    ByRef ProgrammID As Integer)
      '<übergebene Parameter>
      'Programm = das Programm, das gestartet werden soll
 
      'Seite = die Seite eines TabControls, auf der das Programm angezeigt
       '       werden soll
 
      'ProgrammID = ProzessID des aufgerufenen Programms
      '             ByRef, um mit dem Aufruf des Programms der globalen Variable
      '             intProgrammID die ProzessID zu übergeben
      '             (wird in der Prozdur "Stoppen gebraucht)
      '</übergebene Parameter>
 
      Dim Handle As IntPtr 'MainWindowHandle des gestarteten Programms
 
      'Programm starten
      ProgrammID = Process.Start(Programm).Id
 
      'Warten, bis aufgerufenes Programm ein MainWindowsHandle hat
      Do
          Application.DoEvents()
      Loop Until Process.GetProcessById(ProgrammID).MainWindowHandle <> 0
 
      Handle = Process.GetProcessById(ProgrammID).MainWindowHandle
 
      'DOS-Box in Tabpage einbetten
      SetParent(Handle, Seite.Handle)
 
      'WindowState der DOS-Box auf "normal" setzen
      ShowWindow(Handle, SW_NORMAL)
 
      'DOS-Box auf TabPage zentrieren
      MoveWindow(Handle, 10, 8, 670, 440, True)
  End Sub

      'DOS-Box auf TabPage zentrieren
      MoveWindow(Handle, 10, 8, 670, 440, True)