Option Explicit
Dim TaskID As Long
 
Private Sub Command1_Click()
    TaskID = Shell(App.Path & "\Datei.bat")
    AppActivate TaskID
End Sub

_______________________________________________________
Ihr da OHM macht doch WATT ihr VOLT!