Public Class Form1
  With Events FileSystemWatcher...
 
  ' Delegate
  Delegate Sub SetStatusCallback(ByVal sText As String)
...

Private Sub AddStatus(ByVal sText As String)
  ' Status-Fenster aktualisieren
  With txtStatus
    If .InvokeRequired Then
      Dim cb As New SetStatusCallback(AddressOf AddStatus)
      Me.Invoke(cb, New Object() {sText})
    Else
      .AppendText(Strings.Concat(sText, ControlChars.CrLf))
      .SelectionStart = .TextLength + 1
      .SelectionLength = 0
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de