Private WithEvents _Verzeichnis_Ueberwacher As New IO.FileSystemWatcher

  Private Sub frmMain_Shown(ByVal sender As Object, ByVal e As _
    System.EventArgs) Handles Me.Shown
        'Starten der Ordner-Überwachung
        Try
            If _Verzeichnis_Ueberwacher.EnableRaisingEvents = False And _
              My.Settings.myFolder <> "" Then
                _Verzeichnis_Ueberwacher = New IO.FileSystemWatcher( _
                My.Settings.myFolder, "*.*")
                _Verzeichnis_Ueberwacher.IncludeSubdirectories = False
                _Verzeichnis_Ueberwacher.EnableRaisingEvents = True
                btnstartstop.Text = "Überwachung Stoppen"
            Else
                MsgBox("Kein Verzeichnis definiert")
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Starten der" & _
              "Ordner-Überwachung:")
        End Try
    End Sub

    ' Wird ausgelöst, wenn in dem überwachten Verzeichnis eine neue Datei 
    ' erstellt wird.
    Private Sub folder_watch_Created(ByVal sender As Object, ByVal e As _
      System.IO.FileSystemEventArgs) Handles _Verzeichnis_Ueberwacher.Created
        Try
            MsgBox(e.Name & " wurde neu angelegt!")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei:" & _
              "folder_watch.Created")
        End Try
    End Sub

Ich glaube nicht, dass Zitronenfalter wirklich Zitronen falten