Dim WithEvents fsw As New IO.FileSystemWatcher With _
        {.Path = Application.UserAppDataPath, _
        .IncludeSubdirectories = False, _
        .EnableRaisingEvents = True, _
        .Filter = "", _
        .NotifyFilter = IO.NotifyFilters.LastWrite Or IO.NotifyFilters.FileName}

    Private Sub picbind_Format(sender As Object, _
        e As System.Windows.Forms.ConvertEventArgs) Handles picbind.Format
 
        'FilePath des Bildes (nach Extension-Anpassung)
        Dim file As String = IO.Path.ChangeExtension(e.Value.ToString, "wmf")
        e.Value = file
        fsw.Filter = IO.Path.GetFileName(file)
        fsw.Path = IO.Path.GetDirectoryName(file)
    End Sub

    Private Sub bindingsource_reset()
        bs.ResetCurrentItem()
    End Sub
 
    Private Sub fsw_Changed(sender As Object, e As _
      System.IO.FileSystemEventArgs) _
        Handles fsw.Changed, fsw.Deleted, fsw.Renamed, fsw.Created
        Me.Invoke(New MethodInvoker(AddressOf bindingsource_reset))
    End Sub