Protected Overrides Sub WndProc(ByRef [Message] As Message)
       End Sub
 
       Public Enum ConstWindowsDrivers As Integer
           Change = &H219
           Arrival = &H8000
           QueryRemove = &H8001
           QueryRemoveFailed = &H8002
           RemovePending = &H8003
           RemoveComplete = &H8004
           TypeVolume = &H2
       End Enum

  Private Enum DriveType
        ALL
        CDRom = IO.DriveType.CDRom
        Fixed = IO.DriveType.Fixed
        Network = IO.DriveType.Network
        Ram = IO.DriveType.Ram
        Removable = IO.DriveType.Removable
        Unknown = IO.DriveType.Unknown
    End Enum
 
    Private Function Get_Drives_Info( _
       ByVal DriveType As DriveType, _
       ByVal Name As Boolean, _
       Optional ByVal Label As Boolean = False, _
       Optional ByVal Type As Boolean = False, _
       Optional ByVal Format As Boolean = False, _
       Optional ByVal Size As Boolean = False, _
       Optional ByVal FreeSpace As Boolean = False) As List(Of String)
 
        Dim Drive_Info_List As New List(Of String)
        Dim Drive_Info As String = Nothing
 
        For Each Drive In Microsoft.VisualBasic.FileIO.FileSystem.Drives
            If DriveType = DriveType.ALL Then
                If Drive.IsReady = True Then
                    If Name Then Drive_Info += Drive.Name & ";"
                    If Label Then Drive_Info += Drive.VolumeLabel & ";"
                    If Type Then Drive_Info += Drive.DriveType.ToString & ";"
                    If Format Then Drive_Info += Drive.DriveFormat & ";"
                    If Size Then Drive_Info += Drive.TotalSize.ToString & ";"
                    If FreeSpace Then Drive_Info += Drive.TotalFreeSpace & ";"
                End If
            Else
                If Drive.IsReady = True And Drive.DriveType = DriveType Then
                    If Drive.IsReady = True Then
                        If Name Then Drive_Info += Drive.Name & ";"
                        If Label Then Drive_Info += Drive.VolumeLabel & ";"
                        If Type Then Drive_Info += Drive.DriveType.ToString & ";"
                        If Format Then Drive_Info += Drive.DriveFormat & ";"
                        If Size Then Drive_Info += Drive.TotalSize.ToString & ";"
                        If FreeSpace Then Drive_Info += Drive.TotalFreeSpace & ";"
                    End If
                End If
            End If
            If Drive_Info IsNot Nothing Then Drive_Info_List.Add(Drive_Info) : Drive_Info = Nothing
        Next
 
        Return Drive_Info_List
    End Function