Dim searcherD As ManagementObjectSearcher = _
   New ManagementObjectSearcher("root/CIMV2", "SELECT * FROM Win32_DiskDrive")
 
 
For Each drv As ManagementObject In searcherD.Get
    Dim vl As Object = drv.GetPropertyValue("index")
    Dim index As Integer = CInt(vl)
 
    For Each part As ManagementObject In drv.GetRelated("Win32_DiskPartition")
       For Each logical As ManagementObject In part.GetRelated( _
         "Win32_LogicalDisk")
           vl = logical.GetPropertyValue("DeviceID")
           If vl IsNot Nothing Then
              lbo.Items.Add(vl.ToString & ": " & index.ToString)
           End If
       Next logical
    Next part
Next drv