Imports HIDLibrary
Imports System.Threading
 
 
Public Class Form1
    Friend WithEvents _HidDevice As HidDevice
 
    Private Sub Inserted() Handles _HidDevice.Inserted
 
    End Sub
 
    Private Sub Removed() Handles _HidDevice.Removed
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim HidDeviceList As HIDLibrary.HidDevice()
        HidDeviceList = HidDevices.Enumerate(&H54C, &H306)
 
        If HidDeviceList.Length > 0 Then
            _HidDevice = HidDeviceList(0)
            _HidDevice.MonitorDeviceEvents = True
        End If
    End Sub
 
 
End Class