Private Sub Watch_Created(ByVal sender As Object, _
    ByVal e As System.IO.FileSystemEventArgs)
 
        td.pfad1 = e.FullPath()
        td.threadtest()
 
 
    End Sub
 
 
Public Class ThreadData
    Public pfad1 As String
    Sub threadtest()
 
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf _
          ThreadFunction), _
          Nothing)
 
    End Sub
    Sub ThreadFunction(ByVal state As Object)
 
    Dim myProcess As Process = myProcess.Start("c:\hannes_bi\infinys_bi.exe", _
      "/if:" + pfad1)
 
        ' Wait until it ends.
        myProcess.WaitForExit()
        myProcess.Close()