Un ayudante para la interface MCI, reproduce archivos wav,mp3,midi y obtiene información esencial del archivo.

La class es algo básica, solo le añadí lo esencial porque me dió bastantes problemas la verdad.

' [ MCI Player ]
'
' // By Elektro H@cker
 
#Region " Usage Examples "
 
' Dim AudioFile As New MCIPlayer("C:\Audio.wav")
' AudioFile.Play(AudioPlayMode.BackgroundLoop)
 
' Dim sb As New System.Text.StringBuilder
' sb.AppendLine("Filename: " & AudioFile.Filename)
' sb.AppendLine("State...: " & AudioFile.State.ToString)
' sb.AppendLine("Mode....: " & AudioFile.PlaybackMode.ToString)
' sb.AppendLine("Channels: " & CStr(AudioFile.Channels))
' sb.AppendLine("Duration: " & TimeSpan.FromMilliseconds(AudioFile.Duration).ToString("hh\:mm\:ss"))
 
' MessageBox.Show(sb.ToString, "MCI Player", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
' AudioFile.Stop()
 
#End Region
 
#Region " MCI Player "
 
''' <summary>
''' Play Wave, MP3 or MIDI files
''' </summary>
Public Class MCIPlayer
    Inherits NativeWindow
    Implements IDisposable
 
#Region " API "
 
    ''' <summary>
    ''' Sends a command string to an MCI device.
    ''' The device that the command is sent to is specified in the command string.
    ''' </summary>
    ''' <param name="command">
    ''' Pointer to a null-terminated string that specifies an MCI command string. 
    ''' For a list, see Multimedia Command Strings.
    ''' </param>
    ''' <param name="buffer">
    ''' Buffer that receives return information. 
    ''' If no return information is needed, this parameter can be NULL.
    ''' </param>
    ''' <param name="bufferSize">
    ''' Size, in characters, of the return buffer specified.
    ''' </param>
    ''' <param name="hwndCallback">
    ''' Handle to a callback window if the "notify" flag was specified in the command string.
    ''' </param>
    <System.Runtime.InteropServices.
    DllImport("winmm.dll", SetLastError:=True)>
    Private Shared Function mciSendString(
            ByVal command As String,
            ByVal buffer As System.Text.StringBuilder,
            ByVal bufferSize As Integer,
            ByVal hwndCallback As IntPtr
    ) As Integer
    End Function
 
#End Region
 
#Region " Variables "
 
    ''' <summary>
    ''' The form to manage Windows Messages.
    ''' </summary>
    Private WithEvents formulary As Form = Nothing
 
    ''' <summary>
    ''' Indicates the audio play command of mciSendString.
    ''' </summary>
    Private PlayCommand As String = String.Empty
 
    ''' <summary>
    ''' Buffer that receives return information.
    ''' </summary>
    Private ReturnInfo As New System.Text.StringBuilder() With {.Capacity = 255}
 
    ''' <summary>
    ''' The current filename of the file that is to be played.
    ''' </summary>
    Private _filename As String = String.Empty
 
    ''' <summary>
    ''' Indicates the current playback mode.
    ''' </summary>
    Private _PlaybackMode As AudioPlayMode
 
    ''' <summary>
    ''' Flag to cancel the BackgroundLoop PlaybackMode.
    ''' </summary>
    Private CancelLoop As Boolean = False
 
#End Region
 
#Region " Properties "
 
    ''' <summary>
    ''' The current filename of the file that is to be played.
    ''' </summary>
    Public Property Filename() As String
 
        Get
            Return _filename
        End Get
 
        Set(ByVal value As String)
 
            If Not IO.File.Exists(value) Then
                Throw New IO.FileNotFoundException
                Exit Property
            End If
 
            _filename = value
 
        End Set
 
    End Property
 
    ''' <summary>
    ''' Gets che current Playback State.
    ''' </summary>
    Public ReadOnly Property State As PlaybackState
        Get
            mciSendString("status file mode", ReturnInfo, ReturnInfo.Capacity, IntPtr.Zero)
            Return [Enum].Parse(GetType(PlaybackState), ReturnInfo.ToString, True)
        End Get
    End Property
 
    ''' <summary>
    ''' Gets or sets the playback mode of the current file.
    ''' </summary>
    Public Property PlaybackMode As AudioPlayMode
        Get
            Return _PlaybackMode
        End Get
        Set(value As AudioPlayMode)
            _PlaybackMode = value
        End Set
    End Property
 
    ''' <summary>
    ''' Gets the channels of the file.
    ''' </summary>
    ReadOnly Property Channels() As Integer
        Get
            mciSendString("status file channels", ReturnInfo, ReturnInfo.Capacity, IntPtr.Zero)
            Return If(IsNumeric(ReturnInfo.ToString),
                      CInt(ReturnInfo.ToString),
                      -1)
        End Get
    End Property
 
    ''' <summary>
    ''' Gets the file duration in Milleseconds.
    ''' </summary>
    ReadOnly Property Duration() As Integer
        Get
            mciSendString("set file time format milliseconds", Nothing, 0, IntPtr.Zero)
            mciSendString("status file length", ReturnInfo, ReturnInfo.Capacity, IntPtr.Zero)
            Return If(String.IsNullOrEmpty(ReturnInfo.ToString), 0, CInt(ReturnInfo.ToString))
        End Get
    End Property
 
#End Region
 
#Region " Enumerations "
 
    ''' <summary>
    ''' Audio File playback state.
    ''' </summary>
    Public Enum PlaybackState As Short
 
        ''' <summary>
        ''' File is playing.
        ''' </summary>
        Playing = 0
 
        ''' <summary>
        ''' File is paused.
        ''' </summary>
        Paused = 1
 
        ''' <summary>
        ''' File is stopped.
        ''' </summary>
        Stopped = 2
 
    End Enum
 
    ''' <summary>
    ''' Windows Message Identifiers.
    ''' </summary>
    Public Enum KnownMessages As Integer
 
        ''' <summary>
        ''' Notifies an application that an MCI device has completed an operation. 
        ''' MCI devices send this message only when the MCI_NOTIFY flag is used.
        ''' </summary>
        MM_MCINOTIFY = 953
 
    End Enum
 
#End Region
 
#Region " Constructor "
 
    ''' <summary>
    ''' Play Wave, MP3 or MIDI files.
    ''' </summary>
    ''' <param name="AudioFile">Indicates the filename of the media to play.</param>
    Public Sub New(ByVal AudioFile As String)
 
        ' Set the Audio file.
        Me.Filename = AudioFile
 
        ' Set the Formulary.
        Me.formulary = Form.ActiveForm
 
        ' Assign the form handle.
        SetFormHandle()
 
    End Sub
 
    ''' <summary>
    ''' Play Wave, MP3 or MIDI files.
    ''' </summary>
    ''' <param name="Formulary">Indicates the Form to assign the Handle.</param>
    ''' <param name="AudioFile">Indicates the filename of the media to play.</param>
    ''' <remarks></remarks>
    Public Sub New(ByVal Formulary As Form, ByVal AudioFile As String)
 
        ' Set the Audio file.
        Me.Filename = AudioFile
 
        ' Set the Formulary.
        Me.formulary = Formulary
 
        ' Assign the form handle.
        SetFormHandle()
 
    End Sub
 
#End Region
 
#Region " Public Methods "
 
    ''' <summary>
    ''' Plays the file that is specified as the filename.
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub Play(ByVal PlayMode As AudioPlayMode)
 
        DisposedCheck()
 
        Select Case PlayMode
 
            Case AudioPlayMode.Background
                PlayCommand = "play file from 0"
                Me.PlaybackMode = AudioPlayMode.Background
 
            Case AudioPlayMode.BackgroundLoop
                PlayCommand = "play file from 0 notify"
                Me.PlaybackMode = AudioPlayMode.BackgroundLoop
 
            Case AudioPlayMode.WaitToComplete
                PlayCommand = "play file from 0 wait"
                Me.PlaybackMode = AudioPlayMode.WaitToComplete
 
        End Select
 
        ' Open command
        Select Case Me.Filename.Split(".").LastOrDefault
 
            Case "mp3"
                mciSendString(String.Format("open ""{0}"" type mpegvideo alias file", Me.Filename),
                              Nothing,
                              0,
                              IntPtr.Zero)
 
            Case "wav"
                mciSendString(String.Format("open ""{0}"" type waveaudio alias file", Me.Filename),
                              Nothing,
                              0,
                              IntPtr.Zero)
 
            Case "mid", "midi"
                mciSendString("stop midi", Nothing, 0, 0)
                mciSendString("close midi", Nothing, 0, 0)
                mciSendString(String.Format("open sequencer! ""{0}"" alias file", Me.Filename),
                              Nothing,
                              0, IntPtr.Zero)
 
            Case Else
                Throw New Exception("File type not supported.")
                [Close]()
 
        End Select
 
        ' Play command
        mciSendString(PlayCommand, Nothing, 0, If(PlaybackMode = AudioPlayMode.BackgroundLoop,
                                                  Me.Handle,
                                                  IntPtr.Zero))
 
    End Sub
 
    ''' <summary>
    ''' Pause the current playback.
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub Pause()
        DisposedCheck()
        CancelLoop = True
        mciSendString("pause file", Nothing, 0, IntPtr.Zero)
    End Sub
 
    ''' <summary>
    ''' Resume the current playback if it is currently paused.
    ''' </summary>
    Public Sub [Resume]()
        DisposedCheck()
        If Me.State = PlaybackState.Paused Then
            CancelLoop = False
            mciSendString("resume file", Nothing, 0, IntPtr.Zero)
        End If
    End Sub
 
    ''' <summary>
    ''' Stop the current playback.
    ''' </summary>
    Public Sub [Stop]()
        DisposedCheck()
        CancelLoop = True
        mciSendString("stop file", Nothing, 0, IntPtr.Zero)
    End Sub
 
    ''' <summary>
    ''' Close the current file.
    ''' </summary>
    Public Overloads Sub [Close]()
        DisposedCheck()
        CancelLoop = True
        mciSendString("close file", Nothing, 0, IntPtr.Zero)
    End Sub
 
#End Region
 
#Region " Event Handlers "
 
    ''' <summary>
    ''' Assign the handle of the target form to this NativeWindow,
    ''' necessary to override WndProc.
    ''' </summary>
    Private Sub SetFormHandle() _
    Handles formulary.HandleCreated, formulary.Load, formulary.Shown
 
        Try
            If Not Me.Handle.Equals(Me.formulary.Handle) Then
                Me.AssignHandle(Me.formulary.Handle)
            End If
        Catch ' ex As InvalidOperationException
        End Try
 
    End Sub
 
    ''' <summary>
    ''' Releases the Handle.
    ''' </summary>
    Private Sub OnHandleDestroyed() _
    Handles formulary.HandleDestroyed
 
        Me.ReleaseHandle()
 
    End Sub
 
#End Region
 
#Region " Windows Messages "
 
    ''' <summary>
    ''' Processes Windows messages for this Window.
    ''' </summary>
    ''' <param name="m">
    ''' Contains the Windows Message parameters.
    ''' </param>
    Protected Overrides Sub WndProc(ByRef m As Message)
 
        MyBase.WndProc(m)
 
        If m.Msg = KnownMessages.MM_MCINOTIFY Then
 
            If Not CancelLoop Then
                Play(AudioPlayMode.BackgroundLoop)
            Else
                CancelLoop = False
            End If
 
        End If
 
    End Sub
 
#End Region
 
#Region " IDisposable "
 
    ''' <summary>
    ''' To detect redundant calls when disposing.
    ''' </summary>
    Private IsDisposed As Boolean = False
 
    ''' <summary>
    ''' Prevents calls to methods after disposing.
    ''' </summary>
    Private Sub DisposedCheck()
        If Me.IsDisposed Then
            Throw New ObjectDisposedException(Me.GetType().FullName)
        End If
    End Sub
 
    ''' <summary>
    ''' Disposes the objects generated by this instance.
    ''' </summary>
    Public Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
 
    ' IDisposable
    Protected Overridable Sub Dispose(IsDisposing As Boolean)
 
        If Not Me.IsDisposed Then
 
            If IsDisposing Then
                [Close]()
                Me.formulary = Nothing
                Me.ReleaseHandle()
                Me.DestroyHandle()
            End If
 
        End If
 
        Me.IsDisposed = True
 
    End Sub
 
#End Region
 
End Class
 
#End Region

---

Un pequeño ejemplo que hice para recordar el uso de una Task:

#Region " TASK Example "
 
Public Class Form1
 
    ' NORMAL TASK USAGE:
    ' ------------------
    Private Task1 As Threading.Tasks.Task
    Private Task1CTS As New Threading.CancellationTokenSource
    Private Task1CT As Threading.CancellationToken = Task1CTS.Token
 
    Private Sub MyTask1(ByVal CancellationToken As Threading.CancellationToken)
 
        For x As Integer = 0 To 9999
 
            If Not CancellationToken.IsCancellationRequested Then
                Debug.Print("Task1: " & x)
            Else
                MsgBox(String.Format("Task1 Canceled at ""{0}""", x))
                Exit Sub
            End If
 
        Next x
 
    End Sub
 
    ' ANONYMOUS TASK METHOD:
    ' ---------------------
    Private Task2 As Threading.Tasks.Task
    Private Task2CTS As New Threading.CancellationTokenSource
    Private Task2CT As Threading.CancellationToken = Task2CTS.Token
 
    Private Delegate Function Task2Delegate(ByVal CancellationToken As Threading.CancellationToken)
 
    Private MyTask2 As Task2Delegate =
      Function(CancellationToken As Threading.CancellationToken) As Boolean
 
          For x As Integer = 0 To 9999
 
              If Not CancellationToken.IsCancellationRequested Then
                  Debug.Print("Task2: " & x)
              Else
                  MsgBox(String.Format("Task2 Canceled at ""{0}""", x))
                  Return False
              End If
 
          Next x
 
          Return True
 
      End Function
 
    Private Sub TaskTest() Handles MyBase.Shown
 
        ' Run an asynchronous Task.
        Task1 = Threading.Tasks.Task.Factory.StartNew(Sub() MyTask1(Task1CT), Task1CT)
 
        ' Wait 2 seconds (Just to demonstrate this example)
        Threading.Thread.Sleep(2 * 1000)
 
        ' Cancel the Task.
        Task1CTS.Cancel()
 
        ' Wait for the Task to finish the being cancelled.
        Task1.Wait()
 
        ' Show the task status
        MsgBox(Task1.Status.ToString) ' Result: RanToCompletion
 
        ' ReStart the Task1.
        Task1 = Threading.Tasks.Task.Factory.StartNew(Sub() MyTask1(Task1CT), Task1CT)
 
        ' Start the Task2
        Task2 = Threading.Tasks.Task.Factory.StartNew(Of Boolean)(Function() MyTask2(Task2CT), Task2CT)
 
        ' Wait for both Taks to finish their execution.
        Threading.Tasks.Task.WaitAll()
 
    End Sub
 
End Class
 
#End Region

Una nueva versión de mi INI manager, empecé desde cero para simplificar todo el código y le añadí un parámetro al método "Get_Value" para devolver un valor por defecto (se debe especificar) si el valor no se encuentra.

' [ INI File Manager ]
'
' // By Elektro H@cker
 
#Region " Usage Examples "
 
'' Set the initialization file path.
'INIFileManager.FilePath = IO.Path.Combine(Application.StartupPath, "Config.ini")
 
'' Create the initialization file.
'INIFileManager.File.Create()
 
'' Check that the initialization file exist.
'MsgBox(INIFileManager.File.Exist)
 
'' Writes a new entire initialization file with the specified text content.
'INIFileManager.File.Write(New List(Of String) From {"[Section Name 1]"})
 
'' Set an existing value or append it at the enf of the initialization file.
'INIFileManager.Key.Set("KeyName1", "Value1")
 
'' Set an existing value on a specific section or append them at the enf of the initialization file.
'INIFileManager.Key.Set("KeyName2", "Value2", "[Section Name 2]")
 
'' Gets the value of the specified Key name,
'MsgBox(INIFileManager.Key.Get("KeyName1"))
 
'' Gets the value of the specified Key name on the specified Section.
'MsgBox(INIFileManager.Key.Get("KeyName2", , "[Section Name 2]"))
 
'' Gets the value of the specified Key name and returns a default value if the key name is not found.
'MsgBox(INIFileManager.Key.Get("KeyName0", "I'm a default value"))
 
'' Gets the value of the specified Key name, and assign it to a control property.
'CheckBox1.Checked = CType(INIFileManager.Key.Get("KeyName1"), Boolean)
 
'' Checks whether a Key exists.
'MsgBox(INIFileManager.Key.Exist("KeyName1"))
 
'' Checks whether a Key exists on a specific section.
'MsgBox(INIFileManager.Key.Exist("KeyName2", "[First Section]"))
 
'' Remove a key name.
'INIFileManager.Key.Remove("KeyName1")
 
'' Remove a key name on the specified Section.
'INIFileManager.Key.Remove("KeyName2", "[Section Name 2]")
 
'' Add a new section.
'INIFileManager.Section.Add("[Section Name 3]")
 
'' Get the contents of a specific section.
'MsgBox(String.Join(Environment.NewLine, INIFileManager.Section.Get("[Section Name 1]")))
 
'' Remove an existing section.
'INIFileManager.Section.Remove("[Section Name 2]")
 
'' Checks that the initialization file contains at least one section.
'MsgBox(INIFileManager.Section.Has())
 
'' Sort the initialization file (And remove empty lines).
'INIFileManager.File.Sort(True)
 
'' Gets the initialization file section names.
'MsgBox(String.Join(", ", INIFileManager.Section.GetNames()))
 
'' Gets the initialization file content.
'MsgBox(String.Join(Environment.NewLine, INIFileManager.File.Get()))
 
'' Delete the initialization file from disk.
'INIFileManager.File.Delete()
 
#End Region
 
#Region " INI File Manager "
 
Public Class INIFileManager
 
#Region " Members "
 
#Region " Properties "
 
    ''' <summary>
    ''' Indicates the initialization file path.
    ''' </summary>
    Public Shared Property FilePath As String =
        IO.Path.Combine(Application.StartupPath, Process.GetCurrentProcess().ProcessName & ".ini")
 
#End Region
 
#Region " Variables "
 
    ''' <summary>
    ''' Stores the initialization file content.
    ''' </summary>
    Private Shared Content As New List(Of String)
 
    ''' <summary>
    ''' Stores the INI section names.
    ''' </summary>
    Private Shared SectionNames As String() = {String.Empty}
 
    ''' <summary>
    ''' Indicates the start element index of a section name.
    ''' </summary>
    Private Shared SectionStartIndex As Integer = -1
 
    ''' <summary>
    ''' Indicates the end element index of a section name.
    ''' </summary>
    Private Shared SectionEndIndex As Integer = -1
 
    ''' <summary>
    ''' Stores a single sorted section block with their keys and values.
    ''' </summary>
    Private Shared SortedSection As New List(Of String)
 
    ''' <summary>
    ''' Stores all the sorted section blocks with their keys and values.
    ''' </summary>
    Private Shared SortedSections As New List(Of String)
 
    ''' <summary>
    ''' Indicates the INI element index that contains the Key and value.
    ''' </summary>
    Private Shared KeyIndex As Integer = -1
 
    ''' <summary>
    ''' Indicates the culture to compare the strings.
    ''' </summary>
    Private Shared ReadOnly CompareMode As StringComparison = StringComparison.InvariantCultureIgnoreCase
 
#End Region
 
#Region " Exceptions "
 
    ''' <summary>
    ''' Exception is thrown when a section name parameter has invalid format.
    ''' </summary>
    Private Class SectionNameInvalidFormatException
        Inherits Exception
 
        Public Sub New()
            MyBase.New("Section name parameter has invalid format." &
                       Environment.NewLine &
                       "The rigth syntax is: [SectionName]")
        End Sub
 
        Public Sub New(message As String)
            MyBase.New(message)
        End Sub
 
        Public Sub New(message As String, inner As Exception)
            MyBase.New(message, inner)
        End Sub
 
    End Class
 
#End Region
 
#End Region
 
#Region " Methods "
 
    <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)>
    Private Shadows Sub ReferenceEquals()
    End Sub
 
    <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)>
    Private Shadows Sub Equals()
    End Sub
 
    Public Class [File]
 
        <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)>
        Private Shadows Sub ReferenceEquals()
        End Sub
 
        <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)>
        Private Shadows Sub Equals()
        End Sub
 
        ''' <summary>
        ''' Checks whether the initialization file exist.
        ''' </summary>
        ''' <returns>True if initialization file exist, otherwise False.</returns>
        Public Shared Function Exist() As Boolean
            Return IO.File.Exists(FilePath)
        End Function
 
        ''' <summary>
        ''' Creates the initialization file.
        ''' If the file already exist it would be replaced.
        ''' </summary>
        ''' <param name="Encoding">The Text encoding to write the initialization file.</param>
        ''' <returns>True if the operation success, otherwise False.</returns>
        Public Shared Function Create(Optional ByVal Encoding As System.Text.Encoding = Nothing) As Boolean
 
            Try
                IO.File.WriteAllText(FilePath,
                                     String.Empty,
                                     If(Encoding Is Nothing, System.Text.Encoding.Default, Encoding))
            Catch ex As Exception
                Throw
                Return False
 
            End Try
 
            Return True
 
        End Function
 
        ''' <summary>
        ''' Deletes the initialization file.
        ''' </summary>
        ''' <returns>True if the operation success, otherwise False.</returns>
        Public Shared Function Delete() As Boolean
 
            If Not [File].Exist Then Return False
 
            Try
                IO.File.Delete(FilePath)
            Catch ex As Exception
                Throw
                Return False
 
            End Try
 
            Content = Nothing
 
            Return True
 
        End Function
 
        ''' <summary>
        ''' Returns the initialization file content.
        ''' </summary>
        ''' <param name="Encoding">The Text encoding to read the initialization file.</param>
        Public Shared Function [Get](Optional ByVal Encoding As System.Text.Encoding = Nothing) As List(Of String)
 
            Content = IO.File.ReadAllLines(FilePath,
                                           If(Encoding Is Nothing, System.Text.Encoding.Default, Encoding)).ToList()
 
            Return Content
 
        End Function
 
        ''' <summary>
        ''' Sort the initialization file content by the Key names.
        ''' If the initialization file contains sections then the sections are sorted by their names also.
        ''' </summary>
        ''' <param name="RemoveEmptyLines">Remove empty lines.</param>
        ''' <param name="Encoding">The Text encoding to read the initialization file.</param>
        ''' <returns>True if the operation success, otherwise False.</returns>
        Public Shared Function Sort(Optional ByVal RemoveEmptyLines As Boolean = False,
                                    Optional ByVal Encoding As System.Text.Encoding = Nothing) As Boolean
 
            If Not [File].Exist() Then Return False
 
            [File].[Get](Encoding)
 
            Select Case Section.Has(Encoding)
 
                Case True ' initialization file contains at least one Section.
 
                    SortedSection.Clear()
                    SortedSections.Clear()
 
                    Section.GetNames(Encoding) ' Get the (sorted) section names
 
                    For Each name As String In SectionNames
 
                        SortedSection = Section.[Get](name, Encoding) ' Get the single section lines.
 
                        If RemoveEmptyLines Then ' Remove empty lines.
                            SortedSection = SortedSection.Where(Function(line) _
                                                                Not String.IsNullOrEmpty(line) AndAlso
                                                                Not String.IsNullOrWhiteSpace(line)).ToList
                        End If
 
                        SortedSection.Sort() ' Sort the single section keys.
 
                        SortedSections.Add(name) ' Add the section name to the sorted sections list.
                        SortedSections.AddRange(SortedSection) ' Add the single section to the sorted sections list.
 
                    Next name
 
                    Content = SortedSections
 
                Case False ' initialization file doesn't contains any Section.
                    Content.Sort()
 
                    If RemoveEmptyLines Then
                        Content = Content.Where(Function(line) _
                                                        Not String.IsNullOrEmpty(line) AndAlso
                                                        Not String.IsNullOrWhiteSpace(line)).ToList
                    End If
 
            End Select ' Section.Has()
 
            ' Save changes.
            Return [File].Write(Content, Encoding)
 
        End Function
 
        ''' <summary>
        ''' Writes a new initialization file with the specified text content..
        ''' </summary>
        ''' <param name="Content">Indicates the text content to write in the initialization file.</param>
        ''' <param name="Encoding">The Text encoding to read the initialization file.</param>
        ''' <returns>True if the operation success, otherwise False.</returns>
        Public Shared Function Write(ByVal Content As List(Of String),
                                     Optional ByVal Encoding As System.Text.Encoding = Nothing) As Boolean
 
            Try
                IO.File.WriteAllLines(FilePath,
                                      Content,
                                      If(Encoding Is Nothing, System.Text.Encoding.Default, Encoding))
            Catch ex As Exception
                Throw
                Return False
 
            End Try
 
            Return True
 
        End Function
 
    End Class
 
    Public Class [Key]
 
        <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)>
        Private Shadows Sub ReferenceEquals()
        End Sub
 
        <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)>
        Private Shadows Sub Equals()
        End Sub
 
        ''' <summary>
        ''' Return a value indicating whether a key name exist or not.
        ''' </summary>
        ''' <param name="KeyName">Indicates the key name that contains the value to modify.</param>
        ''' <param name="SectionName">Indicates the Section name where to find the key name.</param>
        ''' <param name="Encoding">The Text encoding to write the initialization file.</param>
        ''' <returns>True if the key name exist, otherwise False.</returns>
        Public Shared Function Exist(ByVal KeyName As String,
                                     Optional ByVal SectionName As String = Nothing,
                                     Optional ByVal Encoding As System.Text.Encoding = Nothing) As Boolean
 
            If Not [File].Exist() Then Return False
 
            [File].[Get](Encoding)
 
            [Key].GetIndex(KeyName, SectionName)
 
            Select Case SectionName Is Nothing
 
                Case True
                    Return Convert.ToBoolean(Not KeyIndex)
 
                Case Else
                    Return Convert.ToBoolean(Not (KeyIndex + SectionStartIndex))
 
            End Select
 
        End Function
 
        ''' <summary>
        ''' Set the value of an existing key name.
        ''' 
        ''' If the initialization file doesn't exists, or else the Key doesn't exist,
        ''' or else the Section parameter is not specified and the key name doesn't exist;
        ''' then the 'key=value' is appended to the end of the initialization file.
        ''' 
        ''' if the specified Section name exist but the Key name doesn't exist,
        ''' then the 'key=value' is appended to the end of the Section.
        ''' 
        ''' </summary>
        ''' <param name="KeyName">Indicates the key name that contains the value to modify.</param>
        ''' <param name="Value">Indicates the new value.</param>
        ''' <param name="SectionName">Indicates the Section name where to find the key name.</param>
        ''' <param name="Encoding">The Text encoding to write the initialization file.</param>
        ''' <returns>True if the operation success, otherwise False.</returns>
        Public Shared Function [Set](ByVal KeyName As String,
                                     ByVal Value As String,
                                     Optional ByVal SectionName As String = Nothing,
                                     Optional ByVal Encoding As System.Text.Encoding = Nothing) As Boolean
 
            If Not [File].Exist() Then [File].Create()
 
            [File].[Get](Encoding)
 
            [Key].GetIndex(KeyName, SectionName)
 
            ' If KeyName is not found and indicated Section is found, then...
            If KeyIndex = -1 AndAlso SectionEndIndex <> -1 Then
 
                ' If section EndIndex is the last line of file, then...
                If SectionEndIndex = Content.Count Then
 
                    Content(Content.Count - 1) = Content(Content.Count - 1) &
                                                         Environment.NewLine &
                                                         String.Format("{0}={1}", KeyName, Value)
 
                Else ' If not section EndIndex is the last line of file, then...
 
                    Content(SectionEndIndex) = String.Format("{0}={1}", KeyName, Value) &
                                                    Environment.NewLine &
                                                    Content(SectionEndIndex)
                End If
 
                ' If KeyName is found then...
            ElseIf KeyIndex <> -1 Then
                Content(KeyIndex) = String.Format("{0}={1}", KeyName, Value)
 
                ' If KeyName is not found and Section parameter is passed. then...
            ElseIf KeyIndex = -1 AndAlso SectionName IsNot Nothing Then
                Content.Add(SectionName)
                Content.Add(String.Format("{0}={1}", KeyName, Value))
 
                ' If KeyName is not found, then...
            ElseIf KeyIndex = -1 Then
                Content.Add(String.Format("{0}={1}", KeyName, Value))
 
            End If
 
            ' Save changes.
            Return [File].Write(Content, Encoding)
 
        End Function
 
        ''' <summary>
        ''' Get the value of an existing key name.
        ''' If the initialization file or else the Key doesn't exist then a 'Nothing' object is returned. 
        ''' </summary>
        ''' <param name="KeyName">Indicates the key name to retrieve their value.</param>
        ''' <param name="DefaultValue">Indicates a default value to return if the key name is not found.</param>
        ''' <param name="SectionName">Indicates the Section name where to find the key name.</param>
        ''' <param name="Encoding">The Text encoding to read the initialization file.</param>
        Public Shared Function [Get](ByVal KeyName As String,
                                     Optional ByVal DefaultValue As Object = Nothing,
                                     Optional ByVal SectionName As String = Nothing,
                                     Optional ByVal Encoding As System.Text.Encoding = Nothing) As Object
 
            If Not [File].Exist() Then Return DefaultValue
 
            [File].[Get](Encoding)
 
            [Key].GetIndex(KeyName, SectionName)
 
            Select Case KeyIndex
 
                Case Is <> -1 ' KeyName found.
                    Return Content(KeyIndex).Substring(Content(KeyIndex).IndexOf("=") + 1)
 
                Case Else ' KeyName not found.
                    Return DefaultValue
 
            End Select
 
        End Function
 
        ''' <summary>
        ''' Returns the initialization file line index of the key name.
        ''' </summary>
        ''' <param name="KeyName">Indicates the Key name to retrieve their value.</param>
        ''' <param name="SectionName">Indicates the Section name where to find the key name.</param>
        ''' <param name="Encoding">The Text encoding to read the initialization file.</param>
        Private Shared Sub GetIndex(ByVal KeyName As String,
                                    Optional ByVal SectionName As String = Nothing,
                                    Optional ByVal Encoding As System.Text.Encoding = Nothing)
 
            If Content Is Nothing Then [File].Get(Encoding)
 
            ' Reset the INI index elements to negative values.
            KeyIndex = -1
            SectionStartIndex = -1
            SectionEndIndex = -1
 
            If SectionName IsNot Nothing AndAlso Not SectionName Like "[[]?*[]]" Then
                Throw New SectionNameInvalidFormatException
                Exit Sub
            End If
 
            ' Locate the KeyName and set their element index.
            ' If the KeyName is not found then the value is set to "-1" to return an specified default value.
            Select Case String.IsNullOrEmpty(SectionName)
 
                Case True ' Any SectionName parameter is specified.
 
                    KeyIndex = Content.FindIndex(Function(line) line.StartsWith(String.Format("{0}=", KeyName),
                                                                              StringComparison.InvariantCultureIgnoreCase))
 
                Case False ' SectionName parameter is specified.
 
                    Select Case Section.Has(Encoding)
 
                        Case True ' INI contains at least one Section.
 
                            SectionStartIndex = Content.FindIndex(Function(line) line.Trim.Equals(SectionName.Trim, CompareMode))
                            If SectionStartIndex = -1 Then ' Section doesn't exist.
                                Exit Sub
                            End If
 
                            SectionEndIndex = Content.FindIndex(SectionStartIndex + 1, Function(line) line.Trim Like "[[]?*[]]")
                            If SectionEndIndex = -1 Then
                                ' This fixes the value if the section is at the end of file.
                                SectionEndIndex = Content.Count
                            End If
 
                            KeyIndex = Content.FindIndex(SectionStartIndex, SectionEndIndex - SectionStartIndex,
                                                                  Function(line) line.StartsWith(String.Format("{0}=", KeyName),
                                                                                      StringComparison.InvariantCultureIgnoreCase))
 
                        Case False ' INI doesn't contains Sections.
                            GetIndex(KeyName, , Encoding)
 
                    End Select ' Section.Has()
 
            End Select ' String.IsNullOrEmpty(SectionName)
 
        End Sub
 
        ''' <summary>
        ''' Remove an existing key name.
        ''' </summary>
        ''' <param name="KeyName">Indicates the key name to retrieve their value.</param>
        ''' <param name="SectionName">Indicates the Section name where to find the key name.</param>
        ''' <param name="Encoding">The Text encoding to read the initialization file.</param>
        ''' <returns>True if the operation success, otherwise False.</returns>
        Public Shared Function Remove(ByVal KeyName As String,
                                      Optional ByVal SectionName As String = Nothing,
                                      Optional ByVal Encoding As System.Text.Encoding = Nothing) As Boolean
 
            If Not [File].Exist() Then Return False
 
            [File].[Get](Encoding)
 
            [Key].GetIndex(KeyName, SectionName)
 
            Select Case KeyIndex
 
                Case Is <> -1 ' Key found.
 
                    ' Remove the element containing the key name.
                    Content.RemoveAt(KeyIndex)
 
                    ' Save changes.
                    Return [File].Write(Content, Encoding)
 
                Case Else ' KeyName not found.
                    Return False
 
            End Select
 
        End Function
 
    End Class
 
    Public Class Section
 
        <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)>
        Private Shadows Sub ReferenceEquals()
        End Sub
 
        <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)>
        Private Shadows Sub Equals()
        End Sub
 
        ''' <summary>
        ''' Adds a new section at bottom of the initialization file.
        ''' </summary>
        ''' <param name="SectionName">Indicates the Section name to add.</param>
        ''' <param name="Encoding">The Text encoding to read the initialization file.</param>
        ''' <returns>True if the operation success, otherwise False.</returns>
        Public Shared Function Add(Optional ByVal SectionName As String = Nothing,
                                   Optional ByVal Encoding As System.Text.Encoding = Nothing) As Boolean
 
            If Not [File].Exist() Then [File].Create()
 
            If Not SectionName Like "[[]?*[]]" Then
                Throw New SectionNameInvalidFormatException
                Exit Function
            End If
 
            [File].[Get](Encoding)
 
            Select Case Section.GetNames(Encoding).Where(Function(line) line.Trim.Equals(SectionName.Trim, CompareMode)).Any
 
                Case False ' Any of the existing Section names is equal to given section name.
 
                    ' Add the new section name.
                    Content.Add(SectionName)
 
                    ' Save changes.
                    Return [File].Write(Content, Encoding)
 
                Case Else ' An existing Section name is equal to given section name.
                    Return False
 
            End Select
 
        End Function
 
        ''' <summary>
        ''' Returns all the keys and values of an existing Section Name.
        ''' </summary>
        ''' <param name="Encoding">The Text encoding to read the initialization file.</param>
        ''' <param name="SectionName">Indicates the section name where to retrieve their keynames and values.</param>
        Public Shared Function [Get](ByVal SectionName As String,
                                     Optional ByVal Encoding As System.Text.Encoding = Nothing) As List(Of String)
 
            If Content Is Nothing Then [File].Get(Encoding)
 
            SectionStartIndex = Content.FindIndex(Function(line) line.Trim.Equals(SectionName.Trim, CompareMode))
 
            SectionEndIndex = Content.FindIndex(SectionStartIndex + 1, Function(line) line.Trim Like "[[]?*[]]")
 
            If SectionEndIndex = -1 Then
                SectionEndIndex = Content.Count ' This fixes the value if the section is at the end of file.
            End If
 
            Return Content.GetRange(SectionStartIndex, SectionEndIndex - SectionStartIndex).Skip(1).ToList
 
        End Function
 
        ''' <summary>
        ''' Returns all the section names of the initialization file.
        ''' </summary>
        ''' <param name="Encoding">The Text encoding to read the initialization file.</param>
        Public Shared Function GetNames(Optional ByVal Encoding As System.Text.Encoding = Nothing) As String()
 
            If Content Is Nothing Then [File].Get(Encoding)
 
            ' Get the Section names.
            SectionNames = (From line In Content Where line.Trim Like "[[]?*[]]").ToArray
 
            ' Sort the Section names.
            If SectionNames.Count <> 0 Then Array.Sort(SectionNames)
 
            ' Return the Section names.
            Return SectionNames
 
        End Function
 
        ''' <summary>
        ''' Gets a value indicating whether the initialization file contains at least one Section.
        ''' </summary>
        ''' <param name="Encoding">The Text encoding to read the initialization file.</param>
        ''' <returns>True if the INI contains at least one section, otherwise False.</returns>
        Public Shared Function Has(Optional ByVal Encoding As System.Text.Encoding = Nothing) As Boolean
 
            If Content Is Nothing Then [File].Get(Encoding)
 
            Return (From line In Content Where line.Trim Like "[[]?*[]]").Any()
 
        End Function
 
        ''' <summary>
        ''' Removes an existing section with all of it's keys and values.
        ''' </summary>
        ''' <param name="SectionName">Indicates the Section name to remove with all of it's key/values.</param>
        ''' <param name="Encoding">The Text encoding to read the initialization file.</param>
        ''' <returns>True if the operation success, otherwise False.</returns>
        Public Shared Function Remove(Optional ByVal SectionName As String = Nothing,
                                      Optional ByVal Encoding As System.Text.Encoding = Nothing) As Boolean
 
            If Not [File].Exist() Then Return False
 
            If Not SectionName Like "[[]?*[]]" Then
                Throw New SectionNameInvalidFormatException
                Exit Function
            End If
 
            [File].[Get](Encoding)
 
            Select Case [Section].GetNames(Encoding).Where(Function(line) line.Trim.Equals(SectionName.Trim, CompareMode)).Any
 
                Case True ' An existing Section name is equal to given section name.
 
                    ' Get the section StartIndex and EndIndex.
                    [Get](SectionName)
 
                    ' Remove the section range index.
                    Content.RemoveRange(SectionStartIndex, SectionEndIndex - SectionStartIndex)
 
                    ' Save changes.
                    Return [File].Write(Content, Encoding)
 
                Case Else ' Any of the existing Section names is equal to given section name.
                    Return False
 
            End Select
 
        End Function
 
    End Class
 
#End Region
 
End Class
 
#End Region

Control Iterator

Recolecta uno o varios controles y realiza una operación específica en ellos.

Le añadí decenas de overloads y métodos, el código es bien largo: http://pastebin.com/ypuQdKf0

Ejemplos de uso:

 ControlIterator.Disable(CheckBox1)
 
 ControlIterator.Enable({CheckBox1, CheckBox2})
 
 ControlIterator.Check(Of CheckBox)(Me)
 
 ControlIterator.Uncheck(Of CheckBox)(Me.GroupBox1)
 
 ControlIterator.Hide(Of CheckBox)("1")
 
 ControlIterator.PerformAction(Of CheckBox)(Sub(ctrl As CheckBox) ctrl.Visible = True)
 
 ControlIterator.AsyncPerformAction(RichTextBox1,
                                    Sub(rb As RichTextBox)
                                        For n As Integer = 0 To 9
                                            rb.AppendText(CStr(n))
                                        Next
                                    End Sub)

Para comprobar si la conectividad a una web está disponible y mostrar un mensaje de Status en un control...

Ejemplo de uso:

    Private Sub Test()
 
        MsgBox(Is_Connectivity_Avaliable("Google.com"))
 
        Dim t As New Threading.Thread(AddressOf CheckConnectivity)
        t.Start()
 
    End Sub
 
    Private Sub CheckConnectivity()
        Do Until Is_Connectivity_Avaliable("qwertyqwertyqwerty.com", 10, Label1)
            Application.DoEvents()
        Loop
    End Sub

    Private Function Is_Connectivity_Avaliable(ByVal url As String,
                                               Optional ByVal RetryInterval As Integer = -1,
                                               Optional ByVal StatusControl As Control = Nothing) As Boolean
 
        Dim NoNetworkMessage As String = "Network connection is not avaliable."
        Dim NoWebsiteMessage As String = "WebSite is not avaliable."
        Dim NoNetworkRetryMessage As String = "Network connection is not avaliable, retrying in {0} seconds..."
        Dim NoWebsiteRetryMessage As String = "WebSite is not avaliable, retrying in {0} seconds..."
        Dim YesNetworkMessage As String = "Network connection established."
        Dim YesWebsiteMessage As String = "WebSite connection established."
 
        Select Case My.Computer.Network.IsAvailable
 
            Case False ' No network device avaliable
 
                If RetryInterval = -1 Then ' Do not retry
                    NetworkAvaliable(NoNetworkMessage, False, StatusControl)
                    Return False
 
                Else ' Retry
 
                    For X As Integer = 0 To RetryInterval
                        NetworkAvaliable(String.Format(NoNetworkRetryMessage, RetryInterval - X), True, StatusControl)
                    Next X
 
                    Is_Connectivity_Avaliable(url, RetryInterval, StatusControl)
 
                End If ' RetryInterval
 
            Case True ' Network device is avaliable
 
                ' Inform that network device is avaliable.
                NetworkAvaliable(YesNetworkMessage, False, StatusControl)
 
                Try ' Try connect to the given url
                    My.Computer.Network.Ping(url)
 
                    ' Inform that Website connection is avaliable.
                    NetworkAvaliable(YesWebsiteMessage, False, StatusControl)
                    Return True
 
                Catch ex As Net.NetworkInformation.PingException
 
                    If RetryInterval = -1 Then ' Do not retry
                        NetworkAvaliable(NoWebsiteMessage, False, StatusControl)
                        Return False
 
                    Else ' Retry
 
                        For X As Integer = 0 To RetryInterval
                            NetworkAvaliable(String.Format(NoWebsiteRetryMessage, RetryInterval - X), True, StatusControl)
                        Next X
 
                        Is_Connectivity_Avaliable(url, RetryInterval, StatusControl)
 
                    End If ' RetryInterval
 
                Catch ex As InvalidOperationException
 
                    If RetryInterval = -1 Then ' Do not retry
                        NetworkAvaliable(NoNetworkMessage, False, StatusControl)
                        Return False
 
                    Else ' Retry
 
                        For X As Integer = 0 To RetryInterval
                            NetworkAvaliable(String.Format(NoNetworkRetryMessage, RetryInterval - X), True, StatusControl)
                        Next
 
                        Is_Connectivity_Avaliable(url, RetryInterval, StatusControl)
 
                    End If ' RetryInterval
 
                End Try
 
        End Select
 
    End Function
 
    Private Sub NetworkAvaliable(ByVal Message As String,
                                 ByVal Wait As Boolean,
                                 Optional ByVal StatusControl As Control = Nothing)
 
        If Wait Then Threading.Thread.Sleep(1000)
 
        If StatusControl IsNot Nothing Then
            StatusControl.Invoke(Sub() StatusControl.Text = Message)
        Else
            Debug.WriteLine(Message)
        End If
 
    End Sub

---

Un snippet para colorear los elementos de un Listbox, esto lo posteé hace tiempo pero lo he extendido...

#Region " [ListBox] Colorize Items "
 
	' [ [ListBox] Colorize Items ]
	'
	' // By Elektro H@cker
	'
	' Instructions:
	' 1. Set ListBox "Drawmode" property to "OwnerDrawFixed" to make this work.
	'    ListBox1.DrawMode = DrawMode.OwnerDrawFixed
	'
	' Examples :
	'
	' Colorize only selected item:
	' Colorize_Item(ListBox1, Colorize_ListBox_Items.Selected, Brushes.YellowGreen, Brushes.Black)
	'
	' Colorize all Non-Selected items
	' Colorize_Item(ListBox1, Colorize_ListBox_Items.Non_Selected, Brushes.Red, Brushes.YellowGreen)
	'
	' Colorize all items:
	' Colorize_Item(ListBox1, Colorize_ListBox_Items.All, Brushes.Yellow, Brushes.Yellow)
	'
	' Colorize any item:
	' Colorize_Item(ListBox1, Colorize_ListBox_Items.None, Nothing, Nothing)
	'
	' Colorize specific items:
	' Colorize_Item(ListBox1, {0, (ListBox1.Items.Count \ 2), (ListBox1.Items.Count - 1)}, Brushes.HotPink, Nothing)
 
 
    ' Stores the brush colors to paint their items
    Private ListBox_BackColor As Brush = Brushes.YellowGreen
    Private ListBox_ForeColor As Brush = Brushes.Black
 
    Private Enum ListBoxItems As Short
        Selected = 0
        Non_Selected = 1
        All = 2
        None = 3
    End Enum
 
    ''' <summary>
    ''' Colorizes the items of a ListBox.
    ''' </summary>
    ''' <param name="ListBox">Indicates the ListBox control.</param>
    ''' <param name="Colorize">Indicates the items to colorize them.</param>
    ''' <param name="BackColor">Indicates the backcolor for the colorized items.</param>
    ''' <param name="Forecolor">Indicates the forecolor for the colorized items.</param>
    Private Sub Colorize_Item(ByVal ListBox As ListBox, _
                              ByVal Colorize As ListBoxItems, _
                              ByVal BackColor As Brush,
                              ByVal Forecolor As Brush)
 
        ' Stores the Enum value
        ListBox.Tag = Colorize.ToString
 
        ListBox_BackColor = BackColor
        ListBox_ForeColor = Forecolor
 
    End Sub
 
    ''' <summary>
    ''' Colorizes the items of a ListBox.
    ''' </summary>
    ''' <param name="ListBox">Indicates the ListBox control.</param>
    ''' <param name="Colorize">Indicates the items to colorize them.</param>
    ''' <param name="BackColor">Indicates the backcolor for the colorized items.</param>
    ''' <param name="Forecolor">Indicates the forecolor for the colorized items.</param>
    Private Sub Colorize_Item(ByVal ListBox As ListBox,
                              ByVal Colorize As Integer(),
                              ByVal BackColor As Brush,
                              ByVal Forecolor As Brush)
 
        ' Stores the index items
        ListBox.Tag = String.Join(Convert.ToChar(Keys.Space), Colorize)
 
        ListBox_BackColor = BackColor
        ListBox_ForeColor = Forecolor
 
    End Sub
 
    ' ListBox [DrawItem]
    Private Sub ListBox_DrawItem(ByVal sender As Object, ByVal e As DrawItemEventArgs) _
    Handles ListBox_Genres.DrawItem
 
        e.DrawBackground()
 
        Select Case sender.tag
 
            Case ListBoxItems.Selected.ToString ' Colorize Selected Items
 
                If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
                    e.Graphics.FillRectangle(ListBox_BackColor, e.Bounds)
                    e.Graphics.DrawString(sender.GetItemText(sender.Items(e.Index)), e.Font, ListBox_ForeColor, e.Bounds)
                Else
                    Using b As New SolidBrush(e.ForeColor)
                        e.Graphics.DrawString(sender.GetItemText(sender.Items(e.Index)), e.Font, b, e.Bounds)
                    End Using
                End If
 
            Case ListBoxItems.Non_Selected.ToString ' Colorize Non-Selected Items
 
                If (e.State And DrawItemState.Selected) = DrawItemState.None Then
                    e.Graphics.FillRectangle(ListBox_BackColor, e.Bounds)
                    e.Graphics.DrawString(sender.GetItemText(sender.Items(e.Index)), e.Font, ListBox_ForeColor, e.Bounds)
                Else
                    Using b As New SolidBrush(e.ForeColor)
                        e.Graphics.DrawString(sender.GetItemText(sender.Items(e.Index)), e.Font, b, e.Bounds)
                    End Using
                End If
 
            Case ListBoxItems.All.ToString ' Colorize all
 
                e.Graphics.FillRectangle(ListBox_BackColor, e.Bounds)
                e.Graphics.DrawString(sender.GetItemText(sender.Items(e.Index)), e.Font, ListBox_ForeColor, e.Bounds)
 
            Case ListBoxItems.None.ToString ' Colorize none
 
                Using b As New SolidBrush(ListBox.DefaultBackColor)
                    e.Graphics.FillRectangle(b, e.Bounds)
                End Using
 
                Using b As New SolidBrush(ListBox.DefaultForeColor)
                    e.Graphics.DrawString(sender.GetItemText(sender.Items(e.Index)), e.Font, b, e.Bounds)
                End Using
 
            Case Else ' Colorize at specific index
 
                If Not String.IsNullOrEmpty(sender.tag) _
                AndAlso sender.tag.ToString.Split.Contains(CStr(e.Index)) Then
 
                    e.Graphics.FillRectangle(ListBox_BackColor, e.Bounds)
                    e.Graphics.DrawString(sender.GetItemText(sender.Items(e.Index)), e.Font, ListBox_ForeColor, e.Bounds)
 
                Else
 
                    Using b As New SolidBrush(e.ForeColor)
                        e.Graphics.DrawString(sender.GetItemText(sender.Items(e.Index)), e.Font, b, e.Bounds)
                    End Using
 
                End If
 
        End Select
 
        e.DrawFocusRectangle()
 
    End Sub
 
#End Region

---

Otro snippet que he extendido, para ordenar los los items de un ListView:

    ''' <summary>
    ''' Sorts the column content of a ListView.
    ''' </summary>
    ''' <param name="LV">Indicates the ListView to sort.</param>
    ''' <param name="Column">Indicates the columnd to index.</param>
    ''' <param name="Order">Indicates the sort order.</param>
    Private Sub SortListView(ByVal LV As ListView,
                             ByVal Column As Integer,
                             ByVal Order As SortOrder)
 
        LV.ListViewItemSorter = New ListViewSorter(Column, Order)
        LV.Sort()
 
    End Sub
 
    ' ListView [ColumnClick]
    Private Sub ListView_ColumnClick(ByVal sender As Object, ByVal e As ColumnClickEventArgs) _
    Handles ListView1.ColumnClick
 
        If String.IsNullOrEmpty(sender.Columns.Item(0).Tag) Then
            sender.Columns.Item(0).Tag = SortOrder.Ascending.ToString
        Else
            sender.Columns.Item(0).Tag =
                [Enum].GetValues(GetType(SortOrder)).
                Cast(Of Integer).
                Where(Function(n) n <> [Enum].Parse(GetType(SortOrder), sender.Columns.Item(0).Tag)).
                First()
        End If
 
        SortListView(sender, e.Column, [Enum].Parse(GetType(SortOrder), sender.Columns.Item(0).Tag))
 
    End Sub
 
#Region " ListViewSorter "
 
    Public Class ListViewSorter : Implements IComparer
 
        Private ColumnIndex As Integer
        Private SortOrder As SortOrder
 
        Public Sub New(ByVal ColumnIndex As Integer,
                       ByVal SortOrder As SortOrder)
 
            Me.ColumnIndex = ColumnIndex
            Me.SortOrder = SortOrder
 
        End Sub
 
        Public Function Sort(ByVal x As Object,
                             ByVal y As Object) As Integer _
        Implements IComparer.Compare
 
            Dim item_x As ListViewItem = DirectCast(x, ListViewItem)
            Dim item_y As ListViewItem = DirectCast(y, ListViewItem)
            Dim string_x As String
            Dim string_y As String
 
            string_x = If(Not item_x.SubItems.Count <= ColumnIndex,
                          item_x.SubItems(ColumnIndex).Text,
                          "")
 
            string_y = If(Not item_y.SubItems.Count <= ColumnIndex,
                          item_y.SubItems(ColumnIndex).Text,
                          "")
 
            Select Case SortOrder
 
                Case SortOrder.Ascending
 
                    If Double.TryParse(string_x, New Double) AndAlso Double.TryParse(string_y, New Double) Then
                        Return Double.Parse(string_x).CompareTo(Double.Parse(string_y))
 
                    ElseIf Date.TryParse(string_x, New Date) AndAlso Date.TryParse(string_y, New Date) Then
                        Return DateTime.Parse(string_x).CompareTo(DateTime.Parse(string_y))
 
                    Else
                        Return String.Compare(string_x, string_y, False)
 
                    End If
 
                Case Else
 
                    If Double.TryParse(string_x, New Double) AndAlso Double.TryParse(string_y, New Double) Then
                        Return Double.Parse(string_y).CompareTo(Double.Parse(string_x))
 
                    ElseIf Date.TryParse(string_x, New Date) AndAlso Date.TryParse(string_y, New Date) Then
                        Return DateTime.Parse(string_y).CompareTo(DateTime.Parse(string_x))
 
                    Else
                        Return String.Compare(string_y, string_x, False)
 
                    End If
 
            End Select
 
        End Function
 
    End Class
 
#End Region