'Externes Programm starten
		Private Sub Cmd_extprog1Click(sender As System.Object, e As System.EventArgs)
				Me.TopMost = True 
    			p = System.Diagnostics.Process.Start(Txt_extprog1.Text)
    			p.WaitForInputIdle()
    			Stb_alles.Text = p.MainModule.ModuleName & " wurde gestartet."
    			Me.TopMost = False	
		End Sub
 
		Private Sub Cmd_extprog2Click(sender As System.Object, e As System.EventArgs)
				Try
      				If rdb_extprog1.Checked Then
        				If p.CloseMainWindow() = True Then
          					Stb_alles.Text = p.MainModule.ModuleName & " wurde beendet."
        				End If
      				Else
        				p.Kill()
       					 Stb_alles.Text = p.MainModule.ModuleName & " wurde beendet."
      				End If
    				Catch
      				Stb_alles.Text = "Process ist nicht aktiv."
    			End Try
		End Sub