'Imports System.Management
Imports System.Collections
'Imports System.Drawing.Drawing2D

Public Class Drives
    Inherits System.Windows.Forms.Form

    Dim drive As driveInfo
    Dim alDrives As New ArrayList()
    Dim mgtObjectSearcher As System.Management.ManagementObjectSearcher
    Dim mgtObject As System.Management.ManagementObject


#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents cbDrives As System.Windows.Forms.ComboBox
    Friend WithEvents ilDrives As System.Windows.Forms.ImageList
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim configurationAppSettings As System.Configuration.AppSettingsReader = New System.Configuration.AppSettingsReader()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Drives))
        Me.cbDrives = New System.Windows.Forms.ComboBox()
        Me.ilDrives = New System.Windows.Forms.ImageList(Me.components)
        Me.SuspendLayout()
        '
        'cbDrives
        '
        Me.cbDrives.DisplayMember = CType(configurationAppSettings.GetValue("cbDrives.DisplayMember", GetType(System.String)), String)
        Me.cbDrives.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
        Me.cbDrives.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cbDrives.IntegralHeight = CType(configurationAppSettings.GetValue("cbDrives.IntegralHeight", GetType(System.Boolean)), Boolean)
        Me.cbDrives.Location = New System.Drawing.Point(52, 27)
        Me.cbDrives.Name = "cbDrives"
        Me.cbDrives.Size = New System.Drawing.Size(288, 21)
        Me.cbDrives.TabIndex = 0
        Me.cbDrives.Text = CType(configurationAppSettings.GetValue("cbDrives.Text", GetType(System.String)), String)
        '
        'ilDrives
        '
        Me.ilDrives.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
        Me.ilDrives.ImageSize = New System.Drawing.Size(16, 16)
        Me.ilDrives.ImageStream = CType(resources.GetObject("ilDrives.ImageStream", System.Windows.Forms.ImageListStreamer)
        Me.ilDrives.TransparentColor = System.Drawing.Color.Transparent
        '
        'Drives
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(392, 134)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.cbDrives})
        Me.Name = "rives"
        Me.Text = "rives"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Fred_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        mgtObjectSearcher = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_LogicalDisk"

        drive = New driveInfo()

        With drive
            .DriveDescription = "esktop"
            .DriveLetter = "esktop"
            .DriveImage = 0
        End With

        alDrives.Add(drive)

        Call updatedrives()
        Call addDrivesToCombo()

    End Sub

    Private Sub addDrivesToCombo()

        Dim dDrive As driveInfo
        For Each dDrive In alDrives
            cbDrives.Items.Add(""
        Next


        '-- Show the desktop
        If alDrives.Count > 0 Then
            cbDrives.SelectedIndex = 0
        End If

    End Sub

    Private Sub updatedrives()

        For Each mgtObject In mgtObjectSearcher.Get()

            'Build a new class to hold our drive information
            drive = New driveInfo()

            ' Get the drive
            Dim sDriveDescription As String = ""

            sDriveDescription = mgtObject.Properties("eviceID".Value  'ToString

            drive.DriveLetter = sDriveDescription

            cbDrives.ValueMember = sDriveDescription

            sDriveDescription &= "\  " & mgtObject.Properties("escription".Value   '.ToString


            'Determine if the drive is available. If the property
            'is not set, the drive cant be accessed.
            If IsNothing(mgtObject.Properties("Size".Value) Then
                sDriveDescription &= "  Not Available"
            Else
                sDriveDescription &= "  " & mgtObject.Properties("VolumeName".Value  '.ToString
            End If

            drive.DriveDescription = sDriveDescription

            'Get the image for the disk
            Select Case Convert.ToInt16(mgtObject.Properties("riveType".Value)
                Case 0 : drive.DriveImage = 6 'Unknown
                Case 1 : drive.DriveImage = 6 'No root directory
                Case 2 : drive.DriveImage = 1 'Removable
                Case 3 : drive.DriveImage = 2 'Local disk
                Case 4 : drive.DriveImage = 4 'Network Disk
                Case 5 : drive.DriveImage = 3 'Compact Disk
                Case 6 : drive.DriveImage = 0 'RAM disk
            End Select

            'Special network case
            If (drive.DriveImage = 4) Then  '4
                If sDriveDescription.IndexOfAny("Not Available" > 0 Then
                    drive.DriveImage = 5  'Network Disconnected
                End If
            End If

            alDrives.Add(drive)

        Next

    End Sub

    Private Sub cbDrives_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles cbDrives.DrawItem



        Dim rRectangle As New Rectangle(1, 1, 200, 250)







        e.DrawBackground()
        e.DrawFocusRectangle()

        '------------------------------------------------
        'When the list is empty, the index will be -1 so
        'Draw the rectangle and exit safely            --
        '------------------------------------------------

        If e.Index < 0 Then Exit Sub

        '-Place desktop flush and indent drives
        Dim iOffset As Integer = 0
        If e.Index = 0 Then   'if desktop
            iOffset = 0
        Else
            iOffset = 10
        End If

        '-- Get the information on each drive --
        Dim dDrive As New driveInfo()
        dDrive = alDrives(e.Index)

        '-- Retrieve the drive description and image --
        Dim sDriveDescription As String = dDrive.DriveDescription
        Dim iDriveImage As Integer = dDrive.DriveImage
        Dim bmDriveBmp As Bitmap = ilDrives.Images(iDriveImage)

        '-- Drawing variables we will soon need --
        Dim aBrush As Brush = System.Drawing.Brushes.Black
        Dim sFormat As StringFormat = StringFormat.GenericTypographic
        Dim itemHeight As Integer = cbDrives.ItemHeight

        'e.DrawBackground()
        'e.DrawFocusRectangle()

        '-- First, draw the image of the drive on the combobox item
        '-- indented by the iOffset amount
        e.Graphics.DrawImage(bmDriveBmp, iOffset, e.Bounds.Top + (itemHeight - bmDriveBmp.Height) \ 2)

        '-- Before we draw the text, if the item is selected let's make
        '-- it white so it will be visible.
        If (e.State And DrawItemState.Selected) Then
            aBrush = System.Drawing.Brushes.White
        End If

        sFormat.LineAlignment = StringAlignment.Center
        e.Graphics.DrawString(sDriveDescription, e.Font, aBrush, (20 + iOffset), e.Bounds.Top + (e.Bounds.Height \ 2), sFormat)

    End Sub

    Private Sub cbDrives_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbDrives.SelectedIndexChanged



    End Sub
End Class

Friend Class driveInfo
    Dim m_DriveLetter As String = ""
    Dim m_DriveDescription As String = ""
    Dim m_DriveImage As Integer = 0


    Sub New()

    End Sub

    Friend Property DriveLetter() As String
        Get
            Return m_DriveLetter
        End Get
        Set(ByVal Value As String)
            m_DriveLetter = Value
        End Set
    End Property

    Friend Property DriveDescription() As String
        Get
            Return m_DriveDescription
        End Get
        Set(ByVal Value As String)
            m_DriveDescription = Value
        End Set
    End Property

    Friend Property DriveImage() As Integer
        Get
            Return m_DriveImage
        End Get
        Set(ByVal Value As Integer)
            m_DriveImage = Value
        End Set
    End Property
End Class

    Sub GetDrive()
        Dim DriveListBox1 As New Microsoft.VisualBasic.Compatibility.VB6.DriveListBox
        For i As Integer = 0 To DriveListBox1.Items.Count - 1
            Dim pt() As String = DriveListBox1.Items(i).Split(":"
            MsgBox(pt(0) & ":\"
        Next
    End Sub

1. System.Environment.GetLogicalDrives
2. System.IO.Directory.GetLogicalDrives
3. System.IO.DriveInfo.GetDrives
4. My.Computer.FileSystem.Drives (VS 2005)

Dim s As String * 256
GetLogicalDriveStrings 256, ByVal s
Debug.Print s

Dim drives As [String]) = Environment.GetLogicalDrives()
                Text1.AppendText([String].Join(", ", drives))