Public 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
 
 
        '********************************************************
        Dim psi As New ProcessStartInfo
        With psi
            .FileName = Programm
            .Arguments = "/k c:\lib\se ts510502 -pts510502"
            .Arguments = "/k c:\lib\se g7sis -pts510502"
 
        End With
 
        ProgrammID = Process.Start(psi).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, -3, -28, 670, 440, True)
 
    End Sub

    Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles _
      btnStart.Click
 
        StartProgramm("C:\4D\tcc.exe", TabPage1, intProgrammID)
 
        SendKeys.Send("cd \di")
 
    End Sub