Prüfen ob Prozess aktiv, nach Zeit X falls ja beenden und erneut starten

Private Sub kts()
Dim kts, val2, val As String

val2 = Nz(Me!ID)
val = Nz(Me!Param1)
Shell "c:\creator\xstart.exe /hdlnr:" & val2 & " /webserver:" & val & " TWE"  
end sub

Private Sub start_Click()
Dim myIniFile As String


Open "C:\temp\reset_xstart.bat" For Output As #1  
Print #1, "@echo on" 
Print #1, "taskkill /IM xstart.exe /F" 
'Print #1, "RD /S /Q C:\creator\logs"  
'Print #1, "RD /S /Q C:\creator\temp"  
'Print #1, "md C:\creator\temp"  
'Print #1, "md C:\creator\logs"  
Print #1, "echo J| del C:\temp\reset_xstart.bat" 

Close #1

Shell "C:\temp\reset_xstart.bat"  

Sleep 1500

Call copy_ini
'Call ini_edit  
Call kts
If Me.Retail = True Then
Me.passwort_retail.SetFocus
DoCmd.RunCommand acCmdCopy
Else
  If Not IsNull(Me.pass_pwd) Then
  Me.pass_pwd.SetFocus
  DoCmd.RunCommand acCmdCopy
  End If
End If

End Sub