Imports System.Management
 
Module Module1
 
    Public Sub Main()
 
        ' Set up an event watcher and a handler for the event
        Dim watcher As _
            New ManagementEventWatcher(New WqlEventQuery("SELECT * FROM" & _
            "__InstanceOperationEvent WITHIN 5 WHERE TargetInstance ISA" & _
            "'Win32_SoundDevice'"))
'WITHIN steht für das Interval 5 sec.
 
        Dim handler As New MyHandler
        AddHandler watcher.EventArrived, AddressOf handler.Arrived
 
        ' Start watching for events
        watcher.Start()
 
        While Not handler.IsArrived
            Console.Write("0")
            System.Threading.Thread.Sleep(1000)
        End While
 
        ' Stop watching
        watcher.Stop()
 
    End Sub
 
    Public Class MyHandler
 
        Public IsArrived As Boolean
 
        Public Sub Arrived(ByVal sender As Object, ByVal e As _
          EventArrivedEventArgs)
            Console.WriteLine("Ein SoundDevice hat sich verändert")
            IsArrived = True
        End Sub
    End Class
End Module