Dim sPath As String
Dim TaskID As Long
 
sPath = App.Path & IIf(Right$(App.Path, 1) <> "\", "\", "")
TaskID = Shell(sPath & "Vorspann.EXE", vbNormalNoFocus)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de