Const GWL_WNDPROC = (-4&)
 
Type GUID
  Data(3) As Byte
End Type
 
Type DEV_BROADCAST_DEVICEINTERFACE
  dbcc_size As Long
  dbcc_devicetype As Long
  dbcc_reserved As Long
  dbcc_classguid As GUID
  dbcc_name As String
End Type
 
Dim PrevWndProc&
 
Public Sub RegisterHook(hWnd As Long)
  PrevWndProc = SetWindowLong(hWnd, GWL_WNDPROC, _
                              AddressOf SubWndProc)
End Sub
 
Public Sub DestroyHook(hWnd As Long)
  Call SetWindowLong(hWnd, GWL_WNDPROC, PrevWndProc)
End Sub
 
Private Function SubWndProc(ByVal hWnd As Long, _
                            ByVal Msg As Long, _
                            ByVal wParam As Long, _
                            ByVal lParam As Long) As Long
 
  On Error Resume Next
 
  Debug.Print CStr(Msg)
 
  If Msg = 537 And wParam = 32772 And _
    frmTristanMonitor.mySpectrometer1.ConnectionType = USB Then
 
    Dim size As Long
    MoveMemory size, lParam, 4 
    Dim dev_Inf As DEV_BROADCAST_DEVICEINTERFACE
     dev_Inf.dbcc_name = Space(size-15)
    MoveMemory dev_Inf, lParam, size
 
  End If
 
End Function