EventArrivedがManagementEventWatcher vb.Netで動作しません

Question

関数Watcher_EventArrivedが機能していません。
私も参照を追加しましたが、まだ動作していません。

Dim watcher As ManagementEventWatcher 

Public Sub Main() 
    Dim monitoredProcess = "Notepad.exe" 

    Dim query As WqlEventQuery = New WqlEventQuery("__InstanceCreationEvent", New TimeSpan(0, 0, 1), "TargetInstance isa ""Win32_Process"" And TargetInstance.Name = """ & monitoredProcess & """") 

    watcher = New ManagementEventWatcher() 
    watcher.Query = query 

    'This starts watching asynchronously, triggering EventArrived events every time a new event comes in. 
    'You can do synchronous watching via the WaitForNextEvent() method 
    watcher.Start() 

End Sub 

Public Sub Watcher_EventArrived(sender As Object, e As EventArrivedEventArgs) Handles watcher.EventArrived 
    Console.WriteLine("Working") 
End Sub 

Answer 1

そうでなければ、Handles -clauseを使用することはできません、WithEventsで変数watcherを宣言します。

Dim WithEvents watcher As ManagementEventWatcher 

も参照してください：VB.NET WithEvents keyword behavior - VB.NET compiler restriction?