Hi, I receive "Type 'managementeventwatcher' is not defined" error in compilation.
My code is as below:
Imports System.Runtime.InteropServices
Imports System
Imports System.management
'Imports System.ManagementEventWatcher
Namespace monitordrives
End Namespace
Module Program
Class program
Public Enum EventType
Inserted = 2
Removed = 3
End Enum
Sub Main()
Dim watcher As ManagementEventWatcher = New ManagementEventWatcher()
Dim query As WqlEventQuery = New WqlEventQuery()
AddHandler watcher.EventArrived, AddressOf watcher_EventArrived
watcher.Query = query
watcher.Start()
Console.ReadKey()
End Sub
Private Sub watcher_EventArrived(ByRef sender As Object, ByRef e As EventArrivedEventArgs)
Dim driveName As String = e.NewEvent.Properties("DriveName").Value.ToString()
Dim eventType As EventType = CType((Convert.ToInt16(e.NewEvent.Properties("EventType").Value)), EventType)
Dim eventName As String = [Enum].GetName(GetType(EventType), eventType)
Console.WriteLine("{0}: {1} {2}", DateTime.Now, driveName, eventName)
End Sub
'Sub Main()
' Console.WriteLine("Port Connected")
'End Sub
'Public Class socket
'Dim usbdevice As socket = New socket()
'Event usbarrival(ByVal iev As Integer)
' Sub usbdevice_usbarrival()
' AddHandler usbdevice.usbarrival, AddressOf Me.usbdevice_usbarrival
' End Sub
'End Class
End Class
End Module
This error is received five times for other parameters anywhere I used As 'Type'.
Please help me.
Thanks



