Option Explicit
 
Private Sub Command1_Click()
Dim i As String
Dim erg As Variant
i = Text1.Text
erg = Shell(i, 1)
End Sub
 
Private Sub Command2_Click()
Dim i As String
Dim exename As String
Dim erg As Variant
exename = Text1.Text
Shell ("taskkill /im " & exename)
End Sub

IHR SEID ALLE SO
mfG
dereric


P.S.: schreibt mir eine eMail