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 vl1 As Object = drv.GetPropertyValue("Model")
            Dim index As Integer = CInt(vl)
            vl1 = drv.GetPropertyValue("Model")
            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) _
                          + 1 & " --- " & vl1.ToString)
                        ComboBox1.Items.Add(vl.ToString & " --- " & ( _
                        index.ToString) + 1 & " --- " & vl1.ToString)
                    End If
                Next logical
            Next part
        Next drv
        If Not ComboBox1.Items.Count = 0 Then ComboBox1.SelectedIndex = 0