Imports System.Runtime.InteropServices
  	<StructLayout(LayoutKind.Sequential, Pack := 1)> _
	Public Structure DeviceInterfaceData
		Public Size As Integer
		Public InterfaceClassGuid As Guid
		Public Flags As Integer
		Public Reserved As Integer
	End Structure
 
	<StructLayout(LayoutKind.Sequential, Pack := 1)> _
	Public Structure DeviceInterfaceDetailData
		Public Size As Integer
		<MarshalAs(UnmanagedType.ByValTStr, SizeConst := 256)> _
		Public DevicePath As String
	End Structure	
 
    ' SetupDiGetClassDevs: Retorna información sobre el dispositivo
    <DllImport("setupapi.dll",EntryPoint:="SetupDiGetClassDevsW", SetLastError:=True, _
    CharSet:=CharSet.Unicode, ExactSpelling:=True, PreserveSig:=True, _
    CallingConvention:=CallingConvention.Winapi)> _
    Private Shared Function SetupDiGetClassDevs( _
    ByRef ClassGuid As GUID, _
    ByVal Enumerator As Integer, _
    ByVal hwndParent As Integer, _
    ByVal Flags As Integer) As Integer
    End Function    
 
 
   ' SetupDiDestroyDeviceInfoList
    <DllImport("setupapi.dll", _
    EntryPoint:="SetupDiDestroyDeviceInfoList", _
    SetLastError:=True, _
    ExactSpelling:=True, _
    PreserveSig:=True, _
    CallingConvention:=CallingConvention.Winapi)> _
    Private Shared Function SetupDiDestroyDeviceInfoList( _
    ByVal DeviceInfoSet As Integer) As Boolean
    End Function
 
    <DllImport("setupapi.dll", SetLastError := True)> _
	Public Shared Function SetupDiEnumDeviceInterfaces(ByVal lpDeviceInfoSet As IntPtr, ByVal nDeviceInfoData As UInteger, ByRef gClass As Guid, ByVal nIndex As UInteger, ByRef oInterfaceData As DeviceInterfaceData) As Boolean
	End Function
 
	<DllImport("setupapi.dll", SetLastError := True)> _
	Public Shared Function SetupDiGetDeviceInterfaceDetail(ByVal lpDeviceInfoSet As IntPtr, ByRef oInterfaceData As DeviceInterfaceData, ByVal lpDeviceInterfaceDetailData As IntPtr, ByVal nDeviceInterfaceDetailDataSize As UInteger, ByRef nRequiredSize As UInteger, ByVal lpDeviceInfoData As IntPtr) As Boolean
	End Function
 
	<DllImport("setupapi.dll", SetLastError := True)> _
	Public Shared Function SetupDiGetDeviceInterfaceDetail(ByVal lpDeviceInfoSet As IntPtr, ByRef oInterfaceData As DeviceInterfaceData, ByRef oDetailData As DeviceInterfaceDetailData, ByVal nDeviceInterfaceDetailDataSize As UInteger, ByRef nRequiredSize As UInteger, ByVal lpDeviceInfoData As IntPtr) As Boolean
	End Function    
 
 
	' Funcion
Public Function FlashSerials() As String 
   Dim TGUID As GUID 
   Dim lCount       As UInt32 
   Dim lSize        As Integer = &H0 
   Dim DTL          As new DeviceInterfaceDetailData 
   Dim DTA          As new DeviceInterfaceData 
   Dim cad as String        
   TGUID = New Guid("{a5dcbf10-6530-11d2-901f-00c04fb951ed}")   
 
   Dim hDev As IntPtr = SetupDiGetClassDevs( TGUID, &H0 ,&H0, &H12)
 
   If hDev = -1 Then 
   		return "Nada"
   		Exit Function
   End If   
 
   DTA.Size  = Marshal.SizeOf(DTA)
   DTL.Size = &H5   
   cad = ""
   lCount = 0	
 
   While SetupDiEnumDeviceInterfaces(hDev, &H0, TGUID, lCount, DTA)
 
      If Not SetupDiGetDeviceInterfaceDetail(hDev, DTA, IntPtr.Zero , 0, lSize, IntPtr.Zero ) Then      	   		
     	 If SetupDiGetDeviceInterfaceDetail(hDev, DTA, DTL , lSize, lSize, IntPtr.Zero) Then     		     			
     	 	 If Ubound(Split(DTL.DevicePath ,"#"))>1 then
     		    cad = cad & Split(Ucase(DTL.DevicePath) ,"#")(2)  & chr(10)
     		 End If     		 
		 End If		
	  End if
      lCount = lCount + 1
   End while   
   SetupDiDestroyDeviceInfoList(hDev)
   If cad = "" Then cad = "No hay conexiones"   
   return cad
End Function
 
 

' Al sobreescribir este Metodo se puede detectar la acción de conectar/desconectar USB
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
 
  'Se ha producido un cambio en los dispositivos
  Const deviceChange As Integer = &H219
 
  'El sistema detecta un nuevo dispositivo
  Const deviceArrival As Integer = &H8000
 
  'Dispositivo extraído del sistema
  Const deviceRemoveComplete As Integer = &H8004
 
  ' Volumen lógico (Se ha insertado un disco)
  Const deviceTypeVolume As Integer = &H2
 
  Select Case m.Msg
   	'Cambian los dispositivos del sistema
   	Case deviceChange
   	Select Case m.WParam.ToInt32
   	'Llegada de un dispositivo
 	  Case deviceArrival
 	  	  Dim devType As Integer = Marshal.ReadInt32(m.LParam, 4)
 	  	  'Si es un volumen lógico..(unidad de disco)
 	  	  If devType = deviceTypeVolume Then
 		  	 msgbox("Se inserto: " & FlashSerials())
 		  End If
 	  Case deviceRemoveComplete
 		  MessageBox.Show("Se retiró el dispositivo.")
 	  End Select
  End Select
 
  'Ahora se usa el manejador predeterminado
  MyBase.WndProc(m)
End Sub