主题：[求助]如何暂停全局代码事件的执行？

如何暂停下面的事件：

重命名事件

全局代码

Public Sub watcher_Renamed(sender As object, e As System.IO.RenamedEventArgs )

  msgbox("File Renamed: Old Name: " + e.OldName + " New Name: " + e.Name)

End Sub

在AfterOpenProject 中调用

Dim watcher As new System.IO.FileSystemWatcher()
watcher.Path = "d:\Test"
addhandler watcher.Renamed, addressof watcher_Renamed
watcher.EnableRaisingEvents = True