• CodeDomUtil.VisualBasicCompiler
• CodeDomUtil.CSharpCompiler

Public NotInheritable Class Form1 : Inherits Form
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' The VisualBasic.Net compiler instance.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    Dim WithEvents vbCompiler As CodeDomUtil.Compiler =
        New CodeDomUtil.VisualBasicCompiler(CodeDomUtil.CompilerVersions.V4)
 
    Private Sub Form1_Shown() Handles MyBase.Shown
 
        With Me.vbCompiler.Compilersettings
            .GenerateDebugInformation = True
            .GenerateWarnings = True
            .GenerateXmlDocumentation = True
            .HighEntropyEnabled = True
            .IntegerOverflowChecksEnabled = False
            .OptimizationsEnabled = True
            .Platform = CodeDomUtil.Platform.AnyCpu
            .SubsystemVersion = CodeDomUtil.SubsystemVersions.WindowsXP
            .TreatWarningsAsErrors = False
            .Verbose = True
            .VerboseSyntax = False
            .WarningLevel = CodeDomUtil.WarningLevelEnum.Level3
            .LibraryPaths.Add(IO.Directory.GetCurrentDirectory)
        End With
 
        Dim referencedAssemblies As New List(Of String)
        referencedAssemblies.AddRange({"System.dll", "System.Windows.Forms.dll"})
 
        ' Compile a VB Console App from string.
        vbCompiler.CompileFromString(netAssembly:=CodeDomUtil.NetAssembly.Console,
                                     targetFile:="C:\VB Default Console App.exe",
                                     sourceCode:=CodeDomUtil.Templates.TemplateVbConsoleApp,
                                     mainMemberName:="MainNamespace.MainModule",
                                     referencedAssemblies:=referencedAssemblies,
                                     resources:=Nothing,
                                     iconFile:=Nothing)
 
        ' Compile a VB WinForms App from string.
        vbCompiler.CompileFromString(netAssembly:=CodeDomUtil.NetAssembly.WinExe,
                                     targetFile:="C:\VB Default WinForms App.exe",
                                     sourceCode:=CodeDomUtil.Templates.TemplateVbWinFormsApp,
                                     mainMemberName:="MainNamespace.MainClass",
                                     referencedAssemblies:=referencedAssemblies,
                                     resources:=Nothing,
                                     iconFile:=Nothing)
 
        ' Compile a VB library from string.
        vbCompiler.CompileFromString(netAssembly:=CodeDomUtil.NetAssembly.DynamicLinkLibrary,
                                     targetFile:="C:\VB Default Library.dll",
                                     sourceCode:=CodeDomUtil.Templates.TemplateVbLib,
                                     mainMemberName:="MainNamespace.MainClass",
                                     referencedAssemblies:=referencedAssemblies,
                                     resources:=Nothing,
                                     iconFile:=Nothing)
 
        ' Compile a VB local file that contains the sourcecode.
        vbCompiler.CompileFromFile(netAssembly:=CodeDomUtil.NetAssembly.WinExe,
                                   targetFile:="C:\VB Custom App.exe",
                                   sourceFile:="C:\SourceCode.vb",
                                   mainMemberName:="MainNamespace.MainClass",
                                   referencedAssemblies:=referencedAssemblies,
                                   resources:=Nothing,
                                   iconFile:=Nothing)
 
    End Sub
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Handles the <see cref="CodeDomUtil.Compiler.CompilerWorkDone"/> event of the <see cref="vbCompiler"/> instance.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="sender">
    ''' The source of the event.
    ''' </param>
    ''' 
    ''' <param name="e">
    ''' The <see cref="CodeDomUtil.Compiler.CompilerWorkDoneEventArgs"/> instance containing the event data.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    Public Sub VbCompiler_CompilerWorkDone(ByVal sender As Object, ByVal e As CodeDomUtil.Compiler.CompilerWorkDoneEventArgs) _
    Handles vbCompiler.CompilerWorkDone
 
        Console.WriteLine(String.Format("Compiler: {0}", e.CodeDomProvider.ToString))
        Console.WriteLine(String.Format("Parameters: {0}", e.CompilerParameters.CompilerOptions))
 
        For Each war As CodeDomUtil.Compiler.Warning In e.CompilerWarnings
            Console.WriteLine(String.Format("{0}| Warning: {1}", war.ErrorNumber, war.ErrorText))
        Next war
 
        For Each err As CodeDomUtil.Compiler.Error In e.CompileErrors
            Console.WriteLine(String.Format("{0}| Error: {1}", err.ErrorNumber, err.ErrorText))
        Next err
 
        If Not e.CompileErrors.Any Then
            Console.WriteLine(String.Format("Compilation Successful: {0}", e.TargetFilePath))
        End If
 
        Console.WriteLine()
 
    End Sub
 
End Class

Public NotInheritable Class Form1 : Inherits Form
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' The C# compiler instance.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    Dim WithEvents csCompiler As CodeDomUtil.Compiler =
        New CodeDomUtil.CSharpCompiler(CodeDomUtil.CompilerVersions.V4)
 
    Private Sub Form1_Shown() Handles MyBase.Shown
 
        With Me.csCompiler.Compilersettings
            .GenerateDebugInformation = True
            .GenerateWarnings = True
            .GenerateXmlDocumentation = True
            .HighEntropyEnabled = True
            .IntegerOverflowChecksEnabled = False
            .OptimizationsEnabled = True
            .OutputLanguage = New CultureInfo("en-US")
            .Platform = CodeDomUtil.Platform.AnyCpu
            .SubsystemVersion = CodeDomUtil.SubsystemVersions.WindowsXP
            .TreatWarningsAsErrors = False
            .Verbose = True
            .VerboseSyntax = False
            .WarningLevel = CodeDomUtil.WarningLevelEnum.Level3
            .LibraryPaths.Add(IO.Directory.GetCurrentDirectory)
        End With
 
        Dim referencedAssemblies As New List(Of String)
        referencedAssemblies.AddRange({"System.dll", "System.Windows.Forms.dll"})
 
        ' Compile a C# Console App from string.
        csCompiler.CompileFromString(netAssembly:=CodeDomUtil.NetAssembly.Console,
                                     targetFile:="C:\CS Default Console App.exe",
                                     sourceCode:=CodeDomUtil.Templates.TemplateCsConsoleApp,
                                     mainMemberName:="MainNamespace.MainClass",
                                     referencedAssemblies:=referencedAssemblies,
                                     resources:=Nothing,
                                     iconFile:=Nothing)
 
        ' Compile a C# WinForms App from string.
        csCompiler.CompileFromString(netAssembly:=CodeDomUtil.NetAssembly.WinExe,
                                     targetFile:="C:\CS Default WinForms App.exe",
                                     sourceCode:=CodeDomUtil.Templates.TemplateCsWinFormsApp,
                                     mainMemberName:="MainNamespace.MainClass",
                                     referencedAssemblies:=referencedAssemblies,
                                     resources:=Nothing,
                                     iconFile:=Nothing)
 
        ' Compile a C# library from string.
        csCompiler.CompileFromString(netAssembly:=CodeDomUtil.NetAssembly.DynamicLinkLibrary,
                                     targetFile:="C:\CS Default Library.dll",
                                     sourceCode:=CodeDomUtil.Templates.TemplateCsLib,
                                     mainMemberName:="MainNamespace.MainClass",
                                     referencedAssemblies:=referencedAssemblies,
                                     resources:=Nothing,
                                     iconFile:=Nothing)
 
        ' Compile a C# local file that contains the sourcecode.
        csCompiler.CompileFromFile(netAssembly:=CodeDomUtil.NetAssembly.WinExe,
                                   targetFile:="C:\CS Custom App.exe",
                                   sourceFile:="C:\SourceCode.cs",
                                   mainMemberName:="MainNamespace.MainClass",
                                   referencedAssemblies:=referencedAssemblies,
                                   resources:=Nothing,
                                   iconFile:=Nothing)
 
    End Sub
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Handles the <see cref="CodeDomUtil.Compiler.CompilerWorkDone"/> event of the csCompiler instance.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="sender">
    ''' The source of the event.
    ''' </param>
    ''' 
    ''' <param name="e">
    ''' The <see cref="CodeDomUtil.Compiler.CompilerWorkDoneEventArgs"/> instance containing the event data.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    Public Sub CsCompiler_CompilerWorkDone(ByVal sender As Object, ByVal e As CodeDomUtil.Compiler.CompilerWorkDoneEventArgs) _
    Handles csCompiler.CompilerWorkDone
 
        Console.WriteLine(String.Format("Compiler: {0}", e.CodeDomProvider.ToString))
        Console.WriteLine(String.Format("Parameters: {0}", e.CompilerParameters.CompilerOptions))
 
        For Each war As CodeDomUtil.Compiler.Warning In e.CompilerWarnings
            Console.WriteLine(String.Format("{0}| Warning: {1}", war.ErrorNumber, war.ErrorText))
        Next war
 
        For Each err As CodeDomUtil.Compiler.Error In e.CompileErrors
            Console.WriteLine(String.Format("{0}| Error: {1}", err.ErrorNumber, err.ErrorText))
        Next err
 
        If Not e.CompileErrors.Any Then
            Console.WriteLine(String.Format("Compilation Successful: {0}", e.TargetFilePath))
        End If
 
        Console.WriteLine()
 
    End Sub
 
End Class

Imports System
Imports System.Threading.Tasks
 
Public Class Form1 : Inherits Form
 
    Private Sub Test() Handles Me.Shown
 
        Dim taskTestTime As Task(Of TestExecutionInfo) =
            ProfillingUtil.TestTimeAsync(Sub()
                                             For x As Integer = 0 To 5000
                                                 Console.WriteLine(x)
                                             Next x
                                         End Sub)
 
        taskTestTime.ContinueWith(Sub() Me.ShowTestExecutionInfo(taskTestTime.Result))
 
    End Sub
 
    Private Sub ShowTestExecutionInfo(ByVal teInfo As TestExecutionInfo)
 
        Dim sb As New StringBuilder
        Select Case teInfo.Success
 
            Case True
                With sb ' Set an information message.
                    .AppendLine(String.Format("Method Name: {0}", teInfo.Method.Name))
                    .AppendLine()
                    .AppendLine(String.Format("Elapsed Time: {0}", teInfo.Elapsed.ToString("hh\:mm\:ss\:fff")))
                End With
                MessageBox.Show(sb.ToString, "Code Execution Measurer", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
            Case Else
                With sb ' Set an error message.
                    .AppendLine("Exception occurred during code execution measuring.")
                    .AppendLine()
                    .AppendLine(String.Format("Method Name: {0}", teInfo.Method.Name))
                    .AppendLine()
                    .AppendLine(String.Format("Exception Type: {0}", teInfo.Exception.GetType.Name))
                    .AppendLine()
                    .AppendLine("Exception Message:")
                    .AppendLine(teInfo.Exception.Message)
                    .AppendLine()
                    .AppendLine("Exception Stack Trace:")
                    .AppendLine(teInfo.Exception.StackTrace)
                End With
                MessageBox.Show(sb.ToString, "Code Execution Measurer", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
        End Select
 
    End Sub
 
End Class

    Sub Test()
 
        Dim successful As Boolean =
            ProfillingUtil.TestSuccess(Sub() Convert.ToInt32("Hello World!"))
 
        Dim teInfo As TestExecutionInfo =
            ProfillingUtil.TestTime(Sub()
                                        For x As Integer = 0 To 2500
                                            Console.WriteLine(x)
                                        Next x
                                    End Sub)
 
        Dim sb As New StringBuilder
        Select Case teInfo.Success
 
            Case True
                With sb ' Set an information message.
                    .AppendLine(String.Format("Method Name: {0}", teInfo.Method.Name))
                    .AppendLine()
                    .AppendLine(String.Format("Elapsed Time: {0}", teInfo.Elapsed.ToString("hh\:mm\:ss\:fff")))
                End With
                MessageBox.Show(sb.ToString, "Code Execution Measurer", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
            Case Else
                With sb ' Set an error message.
                    .AppendLine("Exception occurred during code execution measuring.")
                    .AppendLine()
                    .AppendLine(String.Format("Method Name: {0}", teInfo.Method.Name))
                    .AppendLine()
                    .AppendLine(String.Format("Exception Type: {0}", teInfo.Exception.GetType.Name))
                    .AppendLine()
                    .AppendLine("Exception Message:")
                    .AppendLine(teInfo.Exception.Message)
                    .AppendLine()
                    .AppendLine("Exception Stack Trace:")
                    .AppendLine(teInfo.Exception.StackTrace)
                End With
                MessageBox.Show(sb.ToString, "Code Execution Measurer", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
        End Select
 
    End Sub

Dim colorString As New ColorString(Color.FromArgb(255, 91, 146, 198))
 
Console.WriteLine(String.Format("ColorString Structure Size: {0}", Marshal.SizeOf(GetType(ColorString)).ToString))
Console.WriteLine(String.Format("Color.Tostring      : {0}", colorString.Color.ToString))
Console.WriteLine(String.Format("ColorString.Tostring: {0}", colorString.ToString))
Console.WriteLine()
 
Console.WriteLine(String.Format("Numeric Format (Standard)    : {0}", colorString.Numeric(ColorString.ColorStringSyntax.Standard)))
Console.WriteLine(String.Format("Numeric Format (CSharp)      : {0}", colorString.Numeric(ColorString.ColorStringSyntax.CSharp)))
Console.WriteLine(String.Format("Numeric Format (VbNet)       : {0}", colorString.Numeric(ColorString.ColorStringSyntax.VbNet)))
Console.WriteLine(String.Format("Numeric Format (VisualStudio): {0}", colorString.Numeric(ColorString.ColorStringSyntax.VisualStudioPropertyGrid)))
Console.WriteLine()
 
Console.WriteLine(String.Format("Hexadecimal Format (Standard)    : {0}", colorString.Hexadecimal(ColorString.ColorStringSyntax.Standard)))
Console.WriteLine(String.Format("Hexadecimal Format (CSharp)      : {0}", colorString.Hexadecimal(ColorString.ColorStringSyntax.CSharp)))
Console.WriteLine(String.Format("Hexadecimal Format (VbNet)       : {0}", colorString.Hexadecimal(ColorString.ColorStringSyntax.VbNet)))
Console.WriteLine(String.Format("Hexadecimal Format (VisualStudio): {0}", colorString.Hexadecimal(ColorString.ColorStringSyntax.VisualStudioPropertyGrid)))
Console.WriteLine()
 
Console.WriteLine(String.Format("Web Format (Standard)    : {0}", colorString.Web(ColorString.ColorStringSyntax.Standard)))
Console.WriteLine(String.Format("Web Format (CSharp)      : {0}", colorString.Web(ColorString.ColorStringSyntax.CSharp)))
Console.WriteLine(String.Format("Web Format (VbNet)       : {0}", colorString.Web(ColorString.ColorStringSyntax.VbNet)))
Console.WriteLine(String.Format("Web Format (VisualStudio): {0}", colorString.Web(ColorString.ColorStringSyntax.VisualStudioPropertyGrid)))

    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Defines a <see cref="Color"/> with an unique string-format representation in the specified string-syntax.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <example> This is a code example.
    ''' <code>
    ''' Dim colorString As New ColorString(Color.FromArgb(255, 91, 146, 198))
    ''' 
    ''' Console.WriteLine(String.Format("ColorString Structure Size: {0}", Marshal.SizeOf(GetType(ColorString)).ToString))
    ''' Console.WriteLine(String.Format("Color.Tostring      : {0}", colorString.Color.ToString))
    ''' Console.WriteLine(String.Format("ColorString.Tostring: {0}", colorString.ToString))
    ''' Console.WriteLine()
    ''' Console.WriteLine(String.Format("Numeric Format (Standard)    : {0}", colorString.Numeric(ColorUtil.ColorString.ColorStringSyntax.Standard)))
    ''' Console.WriteLine(String.Format("Numeric Format (CSharp)      : {0}", colorString.Numeric(ColorUtil.ColorString.ColorStringSyntax.CSharp)))
    ''' Console.WriteLine(String.Format("Numeric Format (VbNet)       : {0}", colorString.Numeric(ColorUtil.ColorString.ColorStringSyntax.VbNet)))
    ''' Console.WriteLine(String.Format("Numeric Format (VisualStudio): {0}", colorString.Numeric(ColorUtil.ColorString.ColorStringSyntax.VisualStudioPropertyGrid)))
    ''' Console.WriteLine()
    ''' Console.WriteLine(String.Format("Hexadecimal Format (Standard)    : {0}", colorString.Hexadecimal(ColorUtil.ColorString.ColorStringSyntax.Standard)))
    ''' Console.WriteLine(String.Format("Hexadecimal Format (CSharp)      : {0}", colorString.Hexadecimal(ColorUtil.ColorString.ColorStringSyntax.CSharp)))
    ''' Console.WriteLine(String.Format("Hexadecimal Format (VbNet)       : {0}", colorString.Hexadecimal(ColorUtil.ColorString.ColorStringSyntax.VbNet)))
    ''' Console.WriteLine(String.Format("Hexadecimal Format (VisualStudio): {0}", colorString.Hexadecimal(ColorUtil.ColorString.ColorStringSyntax.VisualStudioPropertyGrid)))
    ''' Console.WriteLine()
    ''' Console.WriteLine(String.Format("Web Format (Standard)    : {0}", colorString.Web(ColorUtil.ColorString.ColorStringSyntax.Standard)))
    ''' Console.WriteLine(String.Format("Web Format (CSharp)      : {0}", colorString.Web(ColorUtil.ColorString.ColorStringSyntax.CSharp)))
    ''' Console.WriteLine(String.Format("Web Format (VbNet)       : {0}", colorString.Web(ColorUtil.ColorString.ColorStringSyntax.VbNet)))
    ''' Console.WriteLine(String.Format("Web Format (VisualStudio): {0}", colorString.Web(ColorUtil.ColorString.ColorStringSyntax.VisualStudioPropertyGrid)))
    ''' </code>
    ''' </example>
    ''' ----------------------------------------------------------------------------------------------------
    <Serializable>
    <StructLayout(LayoutKind.Sequential)>
    Public Structure ColorString
 
#Region " Properties "
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Gets the <see cref="Color"/>.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <value>
        ''' The <see cref="Color"/>.
        ''' </value>
        ''' ----------------------------------------------------------------------------------------------------
        Public ReadOnly Property Color As Color
            <DebuggerStepThrough>
            Get
                Return Me.colorB
            End Get
        End Property
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' ( Backing field )
        ''' The <see cref="Color"/>.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Private ReadOnly colorB As Color
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Gets the numeric color-string representation for this instance.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <value>
        ''' The numeric color-string representation.
        ''' </value>
        ''' ----------------------------------------------------------------------------------------------------
        Public ReadOnly Property Numeric(ByVal colorStringSyntax As ColorStringSyntax) As String
            <DebuggerStepThrough>
            Get
                Return Me.GetNumericString(colorStringSyntax)
            End Get
        End Property
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Gets the Hexadecimal color-string representation for this instance.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <value>
        ''' The Hexadecimal color-string representation.
        ''' </value>
        ''' ----------------------------------------------------------------------------------------------------
        Public ReadOnly Property Hexadecimal(ByVal colorStringSyntax As ColorStringSyntax) As String
            <DebuggerStepThrough>
            Get
                Return Me.GetHexadecimalString(colorStringSyntax)
            End Get
        End Property
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Gets the Web color-string representation for this instance.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <value>
        ''' The Web color-string representation.
        ''' </value>
        ''' ----------------------------------------------------------------------------------------------------
        Public ReadOnly Property Web(ByVal colorStringSyntax As ColorStringSyntax) As String
            <DebuggerStepThrough>
            Get
                Return Me.GetWebString(colorStringSyntax)
            End Get
        End Property
 
#End Region
 
#Region " Enumerations "
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Specifies a string syntax to represent a color value.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Public Enum ColorStringSyntax As Integer
 
            ''' <summary>
            ''' Standard syntax.
            ''' </summary>
            Standard = 0
 
            ''' <summary>
            ''' C# language syntax.
            ''' </summary>
            CSharp = 1
 
            ''' <summary>
            ''' Visual Basic.Net language syntax.
            ''' </summary>
            VbNet = 2
 
            ''' <summary>
            ''' VisualStudio IDE's property grid syntax.
            ''' </summary>
            VisualStudioPropertyGrid = 3
 
        End Enum
 
#End Region
 
#Region " Constructors "
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Initializes a new instance of the <see cref="ColorString"/> structure.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="color">
        ''' The source <see cref="Color"/>.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Sub New(ByVal color As Color)
 
            Me.colorB = color
 
        End Sub
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Initializes a new instance of the <see cref="ColorString"/> structure.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="brush">
        ''' The source <see cref="SolidBrush"/>.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Sub New(ByVal brush As SolidBrush)
 
            Me.colorB = brush.Color
 
        End Sub
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Initializes a new instance of the <see cref="ColorString"/> structure.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="pen">
        ''' The source <see cref="Pen"/>.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Sub New(ByVal pen As Pen)
 
            Me.colorB = pen.Color
 
        End Sub
 
#End Region
 
#Region " Private Methods "
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Gets the numeric string representation of a <see cref="Color"/>, in the specified <see cref="ColorStringSyntax"/> syntax.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="syntax">
        ''' The color-string syntax.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' The numeric string representation.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <exception cref="InvalidEnumArgumentException">
        ''' syntax
        ''' </exception>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Private Function GetNumericString(ByVal syntax As ColorStringSyntax) As String
 
            Dim byteString As String =
                String.Format("{0}, {1}, {2}, {3}",
                              Convert.ToString(Me.colorB.A),
                              Convert.ToString(Me.colorB.R),
                              Convert.ToString(Me.colorB.G),
                              Convert.ToString(Me.colorB.B))
 
            Select Case syntax
 
                Case ColorString.ColorStringSyntax.Standard
                    Return byteString
 
                Case ColorString.ColorStringSyntax.CSharp
                    Return String.Format("Color.FromArgb({0});", byteString)
 
                Case ColorString.ColorStringSyntax.VbNet
                    Return String.Format("Color.FromArgb({0})", byteString)
 
                Case ColorString.ColorStringSyntax.VisualStudioPropertyGrid
                    Return byteString.Replace(",", ";")
 
                Case Else
                    Throw New InvalidEnumArgumentException("syntax", syntax, GetType(ColorStringSyntax))
 
            End Select
 
        End Function
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Gets the numeric string representation of a <see cref="Color"/>, in the specified <see cref="ColorStringSyntax"/> syntax.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="syntax">
        ''' The color-string syntax.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' The numeric string representation.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <exception cref="InvalidEnumArgumentException">
        ''' syntax
        ''' </exception>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Private Function GetHexadecimalString(ByVal syntax As ColorStringSyntax) As String
 
            Dim a As String = Convert.ToString(Me.colorB.A, 16).ToUpper
            Dim r As String = Convert.ToString(Me.colorB.R, 16).ToUpper
            Dim g As String = Convert.ToString(Me.colorB.G, 16).ToUpper
            Dim b As String = Convert.ToString(Me.colorB.B, 16).ToUpper
 
            Select Case syntax
 
                Case ColorString.ColorStringSyntax.Standard
                    Return String.Format("{0}{1}{2}{3}", a, r, g, b)
 
                Case ColorString.ColorStringSyntax.CSharp
                    Return String.Format("Color.FromArgb(0x{0}, 0x{1}, 0x{2}, 0x{3});", a, r, g, b)
 
                Case ColorString.ColorStringSyntax.VbNet
                    Return String.Format("Color.FromArgb(&H{0}, &H{1}, &H{2}, &H{3})", a, r, g, b)
 
                Case ColorString.ColorStringSyntax.VisualStudioPropertyGrid
                    Return String.Format("0x{0}{1}{2}{3}", a, r, g, b)
 
                Case Else
                    Throw New InvalidEnumArgumentException("syntax", syntax, GetType(ColorStringSyntax))
 
            End Select
 
        End Function
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Gets the Web string representation of a <see cref="Color"/>, in the specified <see cref="ColorStringSyntax"/> syntax.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="syntax">
        ''' The color-string syntax.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' The Web string representation.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <exception cref="InvalidEnumArgumentException">
        ''' syntax
        ''' </exception>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Private Function GetWebString(ByVal syntax As ColorStringSyntax) As String
 
            Dim htmlString As String = ColorTranslator.ToHtml(Color)
 
            Select Case syntax
 
                Case ColorString.ColorStringSyntax.Standard
                    Return htmlString
 
                Case ColorString.ColorStringSyntax.CSharp
                    Return String.Format("ColorTranslator.FromHtml(""{0}"");", htmlString)
 
                Case ColorString.ColorStringSyntax.VbNet
                    Return String.Format("ColorTranslator.FromHtml(""{0}"")", htmlString)
 
                Case ColorString.ColorStringSyntax.VisualStudioPropertyGrid
                    Return htmlString
 
                Case Else
                    Throw New InvalidEnumArgumentException("syntax", syntax, GetType(ColorStringSyntax))
 
            End Select
 
        End Function
 
#End Region
 
#Region " Public Methods "
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Performs an implicit conversion from <see cref="ColorString"/> to <see cref="Color"/>.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="colorString">
        ''' The <see cref="ColorString"/>.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' The resulting <see cref="Color"/> of the conversion.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------
        Public Shared Widening Operator CType(ByVal colorString As ColorString) As Color
 
            Return Drawing.Color.FromArgb(colorString.Color.R, colorString.Color.G, colorString.Color.B)
 
        End Operator
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Performs an implicit conversion from <see cref="Color"/> to <see cref="ColorString"/>.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="color">
        ''' The <see cref="Color"/>.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' The resulting <see cref="ColorString"/> of the conversion.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------
        Public Shared Narrowing Operator CType(ByVal color As Color) As ColorString
 
            Return New ColorString(color)
 
        End Operator
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Implements the operator =.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="colorString1">
        ''' The first <see cref="ColorString"/> to evaluate.
        ''' </param>
        ''' 
        ''' <param name="colorString2">
        ''' The second <see cref="ColorString"/> to evaluate.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' The result of the operator.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------
        Public Shared Operator =(ByVal colorString1 As ColorString,
                                 ByVal colorString2 As ColorString) As Boolean
 
            Return colorString1.Equals(colorString2)
 
        End Operator
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Implements the operator &lt;&gt;.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="colorString1">
        ''' The first <see cref="ColorString"/> to evaluate.
        ''' </param>
        ''' 
        ''' <param name="colorString2">
        ''' The second <see cref="ColorString"/> to evaluate.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' The result of the operator.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------
        Public Shared Operator <>(ByVal colorString1 As ColorString,
                                  ByVal colorString2 As ColorString) As Boolean
 
            Return Not colorString1.Equals(colorString2)
 
        End Operator
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Determines whether the specified <see cref="System.Object"/> is equal to this instance.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="obj">
        ''' Another object to compare to.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' <see langword="True"/> if the specified <see cref="System.Object"/> is equal to this instance; otherwise, <see langword="False"/>.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------
        Public Overrides Function Equals(ByVal obj As Object) As Boolean
 
            If (TypeOf obj Is ColorString) Then
                Return Me.Equals(DirectCast(obj, ColorString))
 
            ElseIf (TypeOf obj Is Color) Then
                Return Me.Equals(New ColorString(DirectCast(obj, Color)))
 
            Else
                Return False
 
            End If
 
        End Function
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Determines whether the specified <see cref="ColorString"/> is equal to this instance.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="colorString">
        ''' Another <see cref="ColorString"/> to compare to.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' <see langword="True"/> if the specified <see cref="ColorString"/> is equal to this instance; otherwise, <see langword="False"/>.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------
        Public Overloads Function Equals(ByVal colorString As ColorString) As Boolean
 
            Return (colorString.Color.ToArgb = Me.colorB.ToArgb)
 
        End Function
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Returns a hash code for this instance.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' A hash code for this instance, suitable for use in hashing algorithms and data structures like a hash table.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------
        Public Overrides Function GetHashCode() As Integer
 
            Return Me.colorB.GetHashCode()
 
        End Function
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Returns a <see cref="System.String"/> that represents this instance.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' A <see cref="System.String"/> that represents this instance.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------
        Public Overrides Function ToString() As String
 
            Return String.Format(CultureInfo.CurrentCulture, "{{A={0}, R={1}, G={2}, B={3}}}",
                                 Me.colorB.A, Me.colorB.R, Me.colorB.G, Me.colorB.B)
 
        End Function
 
#End Region
 
    End Structure

    Friend WithEvents DriveMon As New DriveWatcher
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Handles the <see cref="DriveWatcher.DriveStatusChanged"/> event of the <see cref="DriveMon"/> instance.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="sender">
    ''' The source of the event.
    ''' </param>
    ''' 
    ''' <param name="e">
    ''' The <see cref="DriveWatcher.DriveStatusChangedEventArgs"/> instance containing the event data.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    Private Sub DriveMon_DriveStatusChanged(ByVal sender As Object, ByVal e As DriveWatcher.DriveStatusChangedEventArgs) _
    Handles DriveMon.DriveStatusChanged
 
        Select Case e.DeviceEvent
 
            Case DriveWatcher.DeviceEvents.Arrival
                Dim sb As New StringBuilder
                sb.AppendLine("New drive connected...'")
                sb.AppendLine(String.Format("Type......: {0}", e.DriveInfo.DriveType.ToString))
                sb.AppendLine(String.Format("Label.....: {0}", e.DriveInfo.VolumeLabel))
                sb.AppendLine(String.Format("Name......: {0}", e.DriveInfo.Name))
                sb.AppendLine(String.Format("Root......: {0}", e.DriveInfo.RootDirectory))
                sb.AppendLine(String.Format("FileSystem: {0}", e.DriveInfo.DriveFormat))
                sb.AppendLine(String.Format("Size......: {0} GB", (e.DriveInfo.TotalSize / (1024 ^ 3)).ToString("n1")))
                sb.AppendLine(String.Format("Free space: {0} GB", (e.DriveInfo.AvailableFreeSpace / (1024 ^ 3)).ToString("n1")))
                Console.WriteLine(sb.ToString)
 
            Case DriveWatcher.DeviceEvents.RemoveComplete
                Dim sb As New StringBuilder
                sb.AppendLine("Drive disconnected...'")
                sb.AppendLine(String.Format("Name: {0}", e.DriveInfo.Name))
                sb.AppendLine(String.Format("Root: {0}", e.DriveInfo.RootDirectory))
                Console.WriteLine(sb.ToString)
 
        End Select
 
    End Sub
 
    Private Sub StartMon_Click(ByVal sender As Object, ByVal e As EventArgs) _
    Handles Button_StartMon.Click
 
        Me.DriveMon.Start()
 
    End Sub
 
    Private Sub StopMon_Click(ByVal sender As Object, ByVal e As EventArgs) _
    Handles Button_StopMon.Click
 
        Me.DriveMon.Stop()
 
    End Sub

' ***********************************************************************
' Author   : Elektro
' Modified : 11-November-2015
' ***********************************************************************
' <copyright file="DriveWatcher.vb" company="Elektro Studios">
'     Copyright (c) Elektro Studios. All rights reserved.
' </copyright>
' ***********************************************************************
 
''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' A device insertion and removal monitor.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
Public Class DriveWatcher : Inherits NativeWindow : Implements IDisposable
 
#Region " Properties "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Gets the connected drives on this computer.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    Public ReadOnly Property Drives As IEnumerable(Of DriveInfo)
        <DebuggerStepThrough>
        Get
            Return DriveInfo.GetDrives
        End Get
    End Property
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Gets a value that determines whether the monitor is running.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    Public ReadOnly Property IsRunning As Boolean
        <DebuggerStepThrough>
        Get
            Return Me.isRunningB
        End Get
    End Property
    Private isRunningB As Boolean
 
#End Region
 
#Region " Events "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' A list of event delegates.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    Private ReadOnly events As EventHandlerList
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Occurs when a drive is inserted, removed, or changed.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    Public Custom Event DriveStatusChanged As EventHandler(Of DriveStatusChangedEventArgs)
 
        <DebuggerNonUserCode>
        <DebuggerStepThrough>
        AddHandler(ByVal value As EventHandler(Of DriveStatusChangedEventArgs))
            Me.events.AddHandler("DriveStatusChangedEvent", value)
        End AddHandler
 
        <DebuggerNonUserCode>
        <DebuggerStepThrough>
        RemoveHandler(ByVal value As EventHandler(Of DriveStatusChangedEventArgs))
            Me.events.RemoveHandler("DriveStatusChangedEvent", value)
        End RemoveHandler
 
        <DebuggerNonUserCode>
        <DebuggerStepThrough>
        RaiseEvent(ByVal sender As Object, ByVal e As DriveStatusChangedEventArgs)
            Dim handler As EventHandler(Of DriveStatusChangedEventArgs) =
                DirectCast(Me.events("DriveStatusChangedEvent"), EventHandler(Of DriveStatusChangedEventArgs))
 
            If (handler IsNot Nothing) Then
                handler.Invoke(sender, e)
            End If
        End RaiseEvent
 
    End Event
 
#End Region
 
#Region " Events Data "
 
#Region " DriveStatusChangedEventArgs "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Contains the event-data of a <see cref="DriveStatusChanged"/> event.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    Public NotInheritable Class DriveStatusChangedEventArgs : Inherits EventArgs
 
#Region " Properties "
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Gets the device event that occurred.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <value>
        ''' The drive info.
        ''' </value>
        ''' ----------------------------------------------------------------------------------------------------
        Public ReadOnly Property DeviceEvent As DeviceEvents
            <DebuggerStepThrough>
            Get
                Return Me.deviceEventsB
            End Get
        End Property
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' ( Backing field )
        ''' The device event that occurred.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Private ReadOnly deviceEventsB As DeviceEvents
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Gets the drive info.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <value>
        ''' The drive info.
        ''' </value>
        ''' ----------------------------------------------------------------------------------------------------
        Public ReadOnly Property DriveInfo As DriveInfo
            <DebuggerStepThrough>
            Get
                Return Me.driveInfoB
            End Get
        End Property
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' ( Backing field )
        ''' The drive info.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Private ReadOnly driveInfoB As DriveInfo
 
#End Region
 
#Region " Constructors "
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Prevents a default instance of the <see cref="DriveStatusChangedEventArgs"/> class from being created.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerNonUserCode>
        Private Sub New()
        End Sub
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Initializes a new instance of the <see cref="DriveStatusChangedEventArgs"/> class.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="driveInfo">
        ''' The drive info.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Sub New(ByVal deviceEvent As DeviceEvents, ByVal driveInfo As DriveInfo)
 
            Me.deviceEventsB = deviceEvent
            Me.driveInfoB = driveInfo
 
        End Sub
 
#End Region
 
    End Class
 
#End Region
 
#End Region
 
#Region " Event Invocators "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Raises <see cref="DriveStatusChanged"/> event.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="e">
    ''' The <see cref="DriveStatusChangedEventArgs"/> instance containing the event data.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Protected Overridable Sub OnDriveStatusChanged(ByVal e As DriveStatusChangedEventArgs)
 
        RaiseEvent DriveStatusChanged(Me, e)
 
    End Sub
 
#End Region
 
#Region " Enumerations "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Specifies a change to the hardware configuration of a device.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <remarks>
    ''' <see href="http://msdn.microsoft.com/en-us/library/windows/desktop/aa363480%28v=vs.85%29.aspx"/>
    ''' <para></para>
    ''' <see href="http://msdn.microsoft.com/en-us/library/windows/desktop/aa363232%28v=vs.85%29.aspx"/>
    ''' </remarks>
    ''' ----------------------------------------------------------------------------------------------------
    Public Enum DeviceEvents As Integer
 
        ' *****************************************************************************
        '                            WARNING!, NEED TO KNOW...
        '
        '  THIS ENUMERATION IS PARTIALLY DEFINED TO MEET THE PURPOSES OF THIS PROJECT
        ' *****************************************************************************
 
        ''' <summary>
        ''' The current configuration has changed, due to a dock or undock.
        ''' </summary>
        Change = &H219
 
        ''' <summary>
        ''' A device or piece of media has been inserted and becomes available.
        ''' </summary>
        Arrival = &H8000
 
        ''' <summary>
        ''' Request permission to remove a device or piece of media.
        ''' <para></para>
        ''' This message is the last chance for applications and drivers to prepare for this removal.
        ''' However, any application can deny this request and cancel the operation.
        ''' </summary>
        QueryRemove = &H8001
 
        ''' <summary>
        ''' A request to remove a device or piece of media has been canceled.
        ''' </summary>
        QueryRemoveFailed = &H8002
 
        ''' <summary>
        ''' A device or piece of media is being removed and is no longer available for use.
        ''' </summary>
        RemovePending = &H8003
 
        ''' <summary>
        ''' A device or piece of media has been removed.
        ''' </summary>
        RemoveComplete = &H8004
 
    End Enum
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Specifies a computer device type.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <remarks>
    ''' <see href="https://msdn.microsoft.com/en-us/library/windows/desktop/aa363246%28v=vs.85%29.aspx"/>
    ''' </remarks>
    ''' ----------------------------------------------------------------------------------------------------
    Private Enum DeviceType As Integer
 
        ' *****************************************************************************
        '                            WARNING!, NEED TO KNOW...
        '
        '  THIS ENUMERATION IS PARTIALLY DEFINED TO MEET THE PURPOSES OF THIS PROJECT
        ' *****************************************************************************
 
        ''' <summary>
        ''' Logical volume.
        ''' </summary>
        Logical = &H2
 
    End Enum
 
#End Region
 
#Region " Types "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Contains information about a logical volume.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <remarks>
    ''' <see href="http://msdn.microsoft.com/en-us/library/windows/desktop/aa363249%28v=vs.85%29.aspx"/>
    ''' </remarks>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    <StructLayout(LayoutKind.Sequential)>
    Private Structure DevBroadcastVolume
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' The size of this structure, in bytes.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Public Size As UInteger
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Set to DBT_DEVTYP_VOLUME (2).
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Public Type As UInteger
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Reserved parameter; do not use this.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Public Reserved As UInteger
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' The logical unit mask identifying one or more logical units.
        ''' Each bit in the mask corresponds to one logical drive.
        ''' Bit 0 represents drive A, bit 1 represents drive B, and so on.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Public Mask As UInteger
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' This parameter can be one of the following values:
        ''' '0x0001': Change affects media in drive. If not set, change affects physical device or drive.
        ''' '0x0002': Indicated logical volume is a network volume.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Public Flags As UShort
 
    End Structure
 
#End Region
 
#Region " Constructor "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Initializes a new instance of <see cref="DriveWatcher"/> class.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Public Sub New()
 
        Me.events = New EventHandlerList
 
    End Sub
 
#End Region
 
#Region " Public Methods "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Starts monitoring.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <exception cref="Exception">
    ''' Monitor is already running.
    ''' </exception>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Public Overridable Sub Start()
 
        If (Me.Handle = IntPtr.Zero) Then
            MyBase.CreateHandle(New CreateParams)
            Me.isRunningB = True
 
        Else
            Throw New Exception(message:="Monitor is already running.")
 
        End If
 
    End Sub
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Stops monitoring.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <exception cref="Exception">
    ''' Monitor is already stopped.
    ''' </exception>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Public Overridable Sub [Stop]()
 
        If (Me.Handle <> IntPtr.Zero) Then
            MyBase.DestroyHandle()
            Me.isRunningB = False
 
        Else
            Throw New Exception(message:="Monitor is already stopped.")
 
        End If
 
    End Sub
 
#End Region
 
#Region " Private Methods "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Gets the drive letter stored in a <see cref="DevBroadcastVolume"/> structure.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="Device">
    ''' The <see cref="DevBroadcastVolume"/> structure containing the device mask.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <returns>
    ''' The drive letter.
    ''' </returns>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Private Function GetDriveLetter(ByVal device As DevBroadcastVolume) As Char
 
        Dim driveLetters As Char() = "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray
 
        Dim deviceID As New BitArray(BitConverter.GetBytes(device.Mask))
 
        For i As Integer = 0 To deviceID.Length
 
            If deviceID(i) Then
                Return driveLetters(i)
            End If
 
        Next i
 
        Return Nothing
 
    End Function
 
#End Region
 
#Region " Window Procedure (WndProc) "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Invokes the default window procedure associated with this window to process messages for this Window.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="m">
    ''' A <see cref="T:System.Windows.Forms.Message"/> that is associated with the current Windows message.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Protected Overrides Sub WndProc(ByRef m As Message)
 
        Select Case m.Msg
 
            Case DeviceEvents.Change ' The hardware has changed.
 
                If (m.LParam = IntPtr.Zero) Then
                    Exit Select
                End If
 
                ' If it's an storage device then...
                If Marshal.ReadInt32(m.LParam, 4) = DeviceType.Logical Then
 
                    ' Transform the LParam pointer into the data structure.
                    Dim currentWDrive As DevBroadcastVolume =
                        DirectCast(Marshal.PtrToStructure(m.LParam, GetType(DevBroadcastVolume)), DevBroadcastVolume)
 
                    Dim driveLetter As Char = Me.GetDriveLetter(currentWDrive)
                    Dim deviceEvent As DeviceEvents = DirectCast(m.WParam.ToInt32, DeviceEvents)
                    Dim driveInfo As New DriveInfo(driveLetter)
 
                    Me.OnDriveStatusChanged(New DriveStatusChangedEventArgs(deviceEvent, driveInfo))
 
                End If
 
        End Select
 
        ' Return Message to base message handler.
        MyBase.WndProc(m)
 
    End Sub
 
#End Region
 
#Region " Hidden methods "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Serves as a hash function for a particular type.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    <EditorBrowsable(EditorBrowsableState.Never)>
    <DebuggerNonUserCode>
    Public Shadows Function GetHashCode() As Integer
        Return MyBase.GetHashCode
    End Function
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Gets the <see cref="System.Type"/> of the current instance.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <returns>
    ''' The exact runtime type of the current instance.
    ''' </returns>
    ''' ----------------------------------------------------------------------------------------------------
    <EditorBrowsable(EditorBrowsableState.Never)>
    <DebuggerNonUserCode>
    Public Shadows Function [GetType]() As Type
        Return MyBase.GetType
    End Function
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Determines whether the specified <see cref="System.Object"/> instances are considered equal.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    <EditorBrowsable(EditorBrowsableState.Never)>
    <DebuggerNonUserCode>
    Public Shadows Function Equals(ByVal obj As Object) As Boolean
        Return MyBase.Equals(obj)
    End Function
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Returns a String that represents the current object.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    <EditorBrowsable(EditorBrowsableState.Never)>
    <DebuggerNonUserCode>
    Public Shadows Function ToString() As String
        Return MyBase.ToString
    End Function
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Assigns a handle to this window.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    <EditorBrowsable(EditorBrowsableState.Never)>
    <DebuggerNonUserCode>
    Public Shadows Sub AssignHandle(ByVal handle As IntPtr)
        MyBase.AssignHandle(handle)
    End Sub
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Creates a window and its handle with the specified creation parameters.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    <EditorBrowsable(EditorBrowsableState.Never)>
    <DebuggerNonUserCode>
    Public Shadows Sub CreateHandle(ByVal cp As CreateParams)
        MyBase.CreateHandle(cp)
    End Sub
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Destroys the window and its handle.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    <EditorBrowsable(EditorBrowsableState.Never)>
    <DebuggerNonUserCode>
    Public Shadows Sub DestroyHandle()
        MyBase.DestroyHandle()
    End Sub
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Releases the handle associated with this window.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    <EditorBrowsable(EditorBrowsableState.Never)>
    <DebuggerNonUserCode>
    Public Shadows Sub ReleaseHandle()
        MyBase.ReleaseHandle()
    End Sub
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Retrieves the current lifetime service object that controls the lifetime policy for this instance.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    <EditorBrowsable(EditorBrowsableState.Never)>
    <DebuggerNonUserCode>
    Public Shadows Function GetLifeTimeService() As Object
        Return MyBase.GetLifetimeService
    End Function
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Obtains a lifetime service object to control the lifetime policy for this instance.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    <EditorBrowsable(EditorBrowsableState.Never)>
    <DebuggerNonUserCode>
    Public Shadows Function InitializeLifeTimeService() As Object
        Return MyBase.InitializeLifetimeService
    End Function
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Creates an object that contains all the relevant information to generate a proxy used to communicate with a remote object.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    <EditorBrowsable(EditorBrowsableState.Never)>
    <DebuggerNonUserCode>
    Public Shadows Function CreateObjRef(ByVal requestedType As Type) As System.Runtime.Remoting.ObjRef
        Return MyBase.CreateObjRef(requestedType)
    End Function
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Invokes the default window procedure associated with this window.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    <EditorBrowsable(EditorBrowsableState.Never)>
    <DebuggerNonUserCode>
    Public Shadows Sub DefWndProc(ByRef m As Message)
        MyBase.DefWndProc(m)
    End Sub
 
#End Region
 
#Region " IDisposable Implementation "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' To detect redundant calls when disposing.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    Private isDisposed As Boolean
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Releases all the resources used by this instance.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Public Sub Dispose() Implements IDisposable.Dispose
 
        Me.Dispose(isDisposing:=True)
        GC.SuppressFinalize(obj:=Me)
 
    End Sub
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Performs application-defined tasks associated with freeing, releasing, or resetting unmanaged resources.
    ''' Releases unmanaged and - optionally - managed resources.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="isDisposing">
    ''' <see langword="True"/>  to release both managed and unmanaged resources; 
    ''' <see langword="False"/> to release only unmanaged resources.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Protected Overridable Sub Dispose(ByVal isDisposing As Boolean)
 
        If (Not Me.isDisposed) AndAlso (isDisposing) Then
 
            Me.events.Dispose()
            Me.Stop()
 
        End If
 
        Me.isDisposed = True
 
    End Sub
 
#End Region
 
End Class