[VB.Net] ElektroListBox v2.1

' ***********************************************************************
' Author   : Elektro
' Modified : 11-December-2014
' ***********************************************************************
' <copyright file="ElektroListBox.vb" company="Elektro Studios">
'     Copyright (c) Elektro Studios. All rights reserved.
' </copyright>
' ***********************************************************************

#Region " UserControl Features Summary "

#Region " Properties "

' ReadOnly

' TextFormat.Alignment
' TextFormat.FormatFlags
' TextFormat.LineAlignment
' TextFormat.Trimming

' StateEnabled.BorderColor
' StateDisabled.BorderColor
' StateReadOnly.BorderColor

' StateEnabled.Cursor
' StateDisabled.Cursor
' StateReadOnly.Cursor

' StateEnabled.Grid.Enabled
' StateEnabled.Grid.Color
' StateDisabled.Grid.Enabled
' StateDisabled.Grid.Color
' StateReadOnly.Grid.Enabled
' StateReadOnly.Grid.Color

' StateEnabled.Items.Background.Selected
' StateEnabled.Items.Background.Unselected
' StateEnabled.Items.Background.UnselectedAlternate
' StateEnabled.Items.Foreground.Selected
' StateEnabled.Items.Foreground.Unselected
' StateEnabled.Items.Foreground.UnselectedAlternate

' StateDisabled.Items.Background.Selected
' StateDisabled.Items.Background.Unselected
' StateDisabled.Items.Background.UnselectedAlternate
' StateDisabled.Items.Foreground.Selected
' StateDisabled.Items.Foreground.Unselected
' StateDisabled.Items.Foreground.UnselectedAlternate

' StateReadOnly.Items.Background.Selected
' StateReadOnly.Items.Background.Unselected
' StateReadOnly.Items.Background.UnselectedAlternate
' StateReadOnly.Items.Foreground.Selected
' StateReadOnly.Items.Foreground.Unselected
' StateReadOnly.Items.Foreground.UnselectedAlternate

#End Region

#Region " Methods "

' HasDuplicatedItems
' RemoveDuplicatedItems
' MoveItem
' SetSelectedNoJump
' SetSelectedAllorNone

#End Region

#End Region

#Region " Option Statements "

Option Explicit On
Option Strict On
Option Infer Off

#End Region

#Region " Imports "

Imports System.ComponentModel
Imports System.Runtime.InteropServices
Imports System.Drawing.Drawing2D

#End Region

#Region " ElektroListBox "

''' <summary>
''' A custom <see cref="T:ListBox"/> user control.
''' </summary>
Public Class ElektroListBox : Inherits ListBox

#Region " P/Invoking "

    ''' <summary>
    ''' Platform Invocation methods (P/Invoke), access unmanaged code.
    ''' This class does not suppress stack walks for unmanaged code permission.
    ''' <see cref="System.Security.SuppressUnmanagedCodeSecurityAttribute"/>  must not be applied to this class.
    ''' This class is for methods that can be used anywhere because a stack walk will be performed.
    ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/ms182161.aspx
    ''' </summary>
    Protected Class NativeMethods

#Region " Methods "

        ''' <summary>
        ''' Retrieves the device context (DC) for the entire window, including title bar, menus, and scroll bars.
        ''' A window device context permits painting anywhere in a window,
        ''' because the origin of the device context is the upper-left corner of the window instead of the client area.
        ''' GetWindowDC assigns default attributes to the window device context each time it retrieves the device context.
        ''' Previous attributes are lost.
        ''' MSDN Documentation: http://msdn.microsoft.com/es-es/library/windows/desktop/dd144947%28v=vs.85%29.aspx
        ''' </summary>
        ''' <param name="hWnd">
        ''' A handle to the window with a device context that is to be retrieved.
        ''' If this value is NULL, GetWindowDC retrieves the device context for the entire screen.
        ''' If this parameter is NULL, GetWindowDC retrieves the device context for the primary display monitor.
        ''' </param>
        ''' <returns>
        ''' If the function succeeds, the return value is a handle to a device context for the specified window.
        ''' If the function fails, the return value is <see cref="IntPtr.Zero"/>, indicating an error or an invalid hWnd parameter.
        ''' </returns>
        <DllImport("User32.dll")>
        Friend Shared Function GetWindowDC(
               ByVal hWnd As IntPtr
        ) As IntPtr
        End Function

        ''' <summary>
        ''' The ReleaseDC function releases a device context (DC), freeing it for use by other applications.
        ''' The effect of the ReleaseDC function depends on the type of DC. It frees only common and window DCs.
        ''' It has no effect on class or private DCs.
        ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/dd162920%28v=vs.85%29.aspx
        ''' </summary>
        ''' <param name="hWnd">A handle to the window whose DC is to be released.</param>
        ''' <param name="hDC">A handle to the DC to be released.</param>
        ''' <returns> <c>true</c> if the DC was released, <c>false</c> otherwise.</returns>
        <DllImport("user32.dll")>
        Friend Shared Function ReleaseDC(
               ByVal hWnd As IntPtr,
               ByVal hDC As IntPtr
        ) As <MarshalAs(UnmanagedType.Bool)> Boolean
        End Function

#End Region

    End Class

#End Region

#Region " Properties "

    ''' <summary>
    ''' Gets the enabled state's <see cref="T:StateLayout"/>.
    ''' </summary>
    ''' <value>The enabled state's <see cref="T:StateLayout"/>.</value>
    <Category("Appearance")>
    <Description("Enabled state.")>
    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
    Friend ReadOnly Property StateEnabled() As StateLayout
        Get
            Return Me.stateEnabled1
        End Get
    End Property
    ''' <summary>
    ''' The enabled state's <see cref="T:StateLayout"/>.
    ''' </summary>
    Private ReadOnly stateEnabled1 As StateLayout

    ''' <summary>
    ''' Gets the disabled state's <see cref="T:StateLayout"/>.
    ''' </summary>
    ''' <value>The disabled state's <see cref="T:StateLayout"/>.</value>
    <Category("Appearance")>
    <Description("Disabled state.")>
    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
    Friend ReadOnly Property StateDisabled() As StateLayout
        Get
            Return Me.stateDisabled1
        End Get
    End Property
    ''' <summary>
    ''' The disabled state's <see cref="T:StateLayout"/>.
    ''' </summary>
    Private ReadOnly stateDisabled1 As StateLayout

    ''' <summary>
    ''' Gets the readonly state's <see cref="T:StateLayout"/>.
    ''' </summary>
    ''' <value>The readonly state's <see cref="T:StateLayout"/>.</value>
    <Category("Appearance")>
    <Description("ReadOnly state.")>
    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
    Friend ReadOnly Property StateReadOnly() As StateLayout
        Get
            Return Me.stateReadOnly1
        End Get
    End Property
    ''' <summary>
    ''' The readonly state's <see cref="T:StateLayout"/>.
    ''' </summary>
    Private ReadOnly stateReadOnly1 As StateLayout

    ''' <summary>
    ''' Gets or sets a value indicating whether the Listbox is in ReadOnly mode.
    ''' </summary>
    <Category("Behavior")>
    <Description("When enabling ReadOnly mode, the control is not selectable.")>
    Public Property [ReadOnly]() As Boolean
        Get
            Return Me.readOnly1
        End Get
        Set(ByVal value As Boolean)
            If Not Me.readOnly1 = value Then
                Me.readOnly1 = value
                Me.NotifyStateChanged(PropertyName.State)
            End If
        End Set
    End Property
    ''' <summary>
    ''' A value indicating whether the Listbox is in ReadOnly mode.
    ''' </summary>
    Private readOnly1 As Boolean

    ''' <summary>
    ''' Gets or sets the cursor that is displayed when the mouse pointer is over the control.
    ''' </summary>
    ''' <value>The cursor that is displayed when the mouse pointer is over the control.</value>
    ''' <PermissionSet>
    '''   <IPermission class="System.Security.Permissions.EnvironmentPermission, mscorlib, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" version="1" Unrestricted="true" />
    '''   <IPermission class="System.Security.Permissions.FileIOPermission, mscorlib, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" version="1" Unrestricted="true" />
    '''   <IPermission class="System.Security.Permissions.SecurityPermission, mscorlib, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" version="1" Flags="UnmanagedCode, ControlEvidence" />
    '''   <IPermission class="System.Diagnostics.PerformanceCounterPermission, System, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" version="1" Unrestricted="true" />
    ''' </PermissionSet>
    <Category("Appearance")>
    <Description("The cursor that appears when the pointer moves over the control.")>
    <Browsable(False)>
    <EditorBrowsableAttribute(EditorBrowsableState.Never)>
    <DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>
    Public Overrides Property Cursor As Cursor = Cursors.Default

    ''' <summary>
    ''' Gets or sets the drawing mode for the control.
    ''' </summary>
    ''' <value>The drawing mode for the control.</value>
    ''' <PermissionSet>
    '''   <IPermission class="System.Security.Permissions.EnvironmentPermission, mscorlib, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" version="1" Unrestricted="true" />
    '''   <IPermission class="System.Security.Permissions.FileIOPermission, mscorlib, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" version="1" Unrestricted="true" />
    '''   <IPermission class="System.Security.Permissions.SecurityPermission, mscorlib, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" version="1" Flags="UnmanagedCode, ControlEvidence" />
    '''   <IPermission class="System.Diagnostics.PerformanceCounterPermission, System, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" version="1" Unrestricted="true" />
    ''' </PermissionSet>
    <Category("Behavior")>
    <Description("Controls the listbox painting.")>
    <Browsable(False)>
    <EditorBrowsableAttribute(EditorBrowsableState.Never)>
    <DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>
    Public Overrides Property DrawMode As DrawMode
        Get
            Return Windows.Forms.DrawMode.OwnerDrawVariable
        End Get
        Set(ByVal value As DrawMode)
            Exit Property
        End Set
    End Property

    ''' <summary>
    ''' Gets or sets the height of an item in the <see cref="T:ElektroListBox"/>.
    ''' </summary>
    ''' <value>The height of an item in the <see cref="T:ElektroListBox"/>..</value>
    ''' <PermissionSet>
    '''   <IPermission class="System.Security.Permissions.EnvironmentPermission, mscorlib, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" version="1" Unrestricted="true" />
    '''   <IPermission class="System.Security.Permissions.FileIOPermission, mscorlib, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" version="1" Unrestricted="true" />
    '''   <IPermission class="System.Security.Permissions.SecurityPermission, mscorlib, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" version="1" Flags="UnmanagedCode, ControlEvidence" />
    '''   <IPermission class="System.Diagnostics.PerformanceCounterPermission, System, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" version="1" Unrestricted="true" />
    ''' </PermissionSet>
    <Category("Appearance")>
    <Description("The height of an item.")>
    <Browsable(True)>
    <EditorBrowsableAttribute(EditorBrowsableState.Always)>
    <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)>
    Public Overrides Property ItemHeight As Integer
        Get
            Return MyBase.ItemHeight
        End Get
        Set(ByVal value As Integer)
            MyBase.ItemHeight = value
            MyBase.RefreshItems()
        End Set
    End Property

    ''' <summary>
    ''' Gets the text format <see cref="T:StringFormatLayout"/>.
    ''' </summary>
    ''' <value>The text format <see cref="T:StringFormatLayout"/>.</value>
    <Category("Appearance")>
    <Description("The text formatting.")>
    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
    Friend ReadOnly Property TextFormat As StringFormatLayout
        Get
            Return Me.textFormat1
        End Get
    End Property
    ''' <summary>
    ''' The text format <see cref="T:StringFormatLayout"/>.
    ''' </summary>
    Private ReadOnly textFormat1 As StringFormatLayout

#End Region

#Region " Constructors "

    ''' <summary>
    ''' Initializes a new instance of the <see cref="T:ElektroListBox"/> class.
    ''' </summary>
    Public Sub New()

        MyBase.DoubleBuffered = True
        MyBase.DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
        MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, False)

        Me.stateDisabled1 = New StateLayout(Me)
        Me.stateEnabled1 = New StateLayout(Me)
        Me.stateReadOnly1 = New StateLayout(Me)
        Me.textFormat1 = New StringFormatLayout(Me)

    End Sub

#End Region

#Region " Types "

#Region " StateLayout "

    ''' <summary>
    ''' Describes an state layout.
    ''' </summary>
    <ToolboxItem(False)>
    Public NotInheritable Class StateLayout : Inherits Component

#Region " Properties "

        ''' <summary>
        ''' Gets the <see cref="T:ElektroListBox"/>.
        ''' </summary>
        ''' <value>The <see cref="T:ElektroListBox"/>.</value>
        Protected ReadOnly Property ListBox() As ElektroListBox
            Get
                Return Me.listBox1
            End Get
        End Property
        ''' <summary>
        ''' The <see cref="T:ElektroListBox"/>.
        ''' </summary>
        Private ReadOnly listBox1 As ElektroListBox

        ''' <summary>
        ''' Gets the foreground layout.
        ''' </summary>
        ''' <value>The foreground layout.</value>
        <Category("Appearance")>
        <Description("The item foreground.")>
        <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
        Public ReadOnly Property Items As ItemLayout
            Get
                Return Me.items1
            End Get
        End Property
        ''' <summary>
        ''' The foreground layout.
        ''' </summary>
        Private ReadOnly items1 As ItemLayout

        ''' <summary>
        ''' Gets the cursor that appears when the pointer moves over the control.
        ''' </summary>
        ''' <value>The cursor that appears when the pointer moves over the control.</value>
        <Category("Appearance")>
        <Description("The cursor that appears when the pointer moves over the control.")>
        <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)>
        Public Property Cursor As Cursor
            Get
                Return Me.cursor1
            End Get
            Set(ByVal value As Cursor)
                Me.cursor1 = value
                Me.listBox1.NotifyStateChanged(PropertyName.Cursor)
            End Set
        End Property
        ''' <summary>
        ''' The cursor that appears when the pointer moves over the control.
        ''' </summary>
        Private cursor1 As Cursor = Cursors.Default

        ''' <summary>
        ''' Gets or sets the border color.
        ''' </summary>
        ''' <value>The border color.</value>
        <Category("Appearance")>
        Public Property BorderColor() As Color
            Get
                Return borderColor1
            End Get
            Set(ByVal value As Color)
                Me.borderColor1 = value
                Me.listBox1.NotifyStateChanged(PropertyName.BorderColor)
            End Set
        End Property
        ''' <summary>
        ''' The border color.
        ''' </summary>
        Private borderColor1 As Color = SystemColors.ControlDark

        ''' <summary>
        ''' Gets the foreground layout.
        ''' </summary>
        ''' <value>The foreground layout.</value>
        <Category("Appearance")>
        <Description("The item foreground.")>
        <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
        Public ReadOnly Property Grid As GridLayout
            Get
                Return Me.grid1
            End Get
        End Property
        ''' <summary>
        ''' The foreground layout.
        ''' </summary>
        Private ReadOnly grid1 As GridLayout

#End Region

#Region " Constructors "

        ''' <summary>
        ''' Initializes a new instance of the <see cref="T:StateLayout"/> class.
        ''' </summary>
        ''' <param name="listBox">The <see cref="T:ElektroListBox"/>.</param>
        Public Sub New(ByVal listBox As ElektroListBox)

            Me.listBox1 = listBox
            Me.items1 = New ItemLayout(listBox1)
            Me.grid1 = New GridLayout(listBox1)

        End Sub

#End Region

#Region " Hidden Members "

        ''' <summary>
        ''' Retrieves the current lifetime service object that controls the lifetime policy for this instance.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        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)>
        Public Shadows Function InitializeLifeTimeService() As Object
            Return MyBase.InitializeLifetimeService
        End Function

        ''' <summary>
        ''' Creates an object that contains all the relevant information required to generate a proxy used to communicate with a remote object.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function CreateObjRef(requestedType As Type) As System.Runtime.Remoting.ObjRef
            Return MyBase.CreateObjRef(requestedType)
        End Function
        ''' <summary>
        ''' Serves as a hash function for a particular type.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function GetHashCode() As Integer
            Return MyBase.GetHashCode
        End Function
        ''' <summary>
        ''' Determines whether the specified System.Object instances are considered equal.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function Equals(ByVal obj As Object) As Boolean
            Return MyBase.Equals(obj)
        End Function

        ''' <summary>
        ''' Determines whether the specified System.Object instances are the same instance.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Private Shadows Sub ReferenceEquals()
        End Sub

        ''' <summary>
        ''' Returns a String that represents the current object.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function ToString() As String
            Return MyBase.ToString
        End Function

        ''' <summary>
        ''' Gets the System.Type of the current instance.
        ''' </summary>
        ''' <returns>The exact runtime type of the current instance.</returns>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function [GetType]() As Type
            Return MyBase.GetType
        End Function

        ''' <summary>
        ''' Releases all resources used by the System.ComponentModel.Component.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Sub Dispose()
            MyBase.Dispose()
        End Sub

        ''' <summary>
        ''' Gets or sets the System.ComponentModel.ISite of the System.ComponentModel.Component.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Property Site As ISite = MyBase.site

        ''' <summary>
        ''' Gets the System.ComponentModel.IContainer that contains the System.ComponentModel.Component.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Property Container As IContainer = MyBase.container

#End Region

    End Class

#End Region

#Region " ItemLayout "

    ''' <summary>
    ''' Describes an state layout.
    ''' </summary>
    <ToolboxItem(False)>
    Public NotInheritable Class ItemLayout : Inherits Component

#Region " Properties "

        ''' <summary>
        ''' Gets the <see cref="T:ElektroListBox"/>.
        ''' </summary>
        ''' <value>The <see cref="T:ElektroListBox"/>.</value>
        Protected ReadOnly Property ListBox() As ElektroListBox
            Get
                Return Me.listBox1
            End Get
        End Property
        ''' <summary>
        ''' The <see cref="T:ElektroListBox"/>.
        ''' </summary>
        Private ReadOnly listBox1 As ElektroListBox

        ''' <summary>
        ''' Gets the background layout.
        ''' </summary>
        ''' <value>The background layout.</value>
        <Category("Appearance")>
        <Description("The item background.")>
        <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
        Public ReadOnly Property Background As ItemLayoutColors
            Get
                Return Me.background1
            End Get
        End Property
        ''' <summary>
        ''' The background layout.
        ''' </summary>
        Private ReadOnly background1 As ItemLayoutColors

        ''' <summary>
        ''' Gets the foreground layout.
        ''' </summary>
        ''' <value>The foreground layout.</value>
        <Category("Appearance")>
        <Description("The item foreground.")>
        <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
        Public ReadOnly Property Foreground As ItemLayoutColors
            Get
                Return Me.foreground1
            End Get
        End Property
        ''' <summary>
        ''' The foreground layout.
        ''' </summary>
        Private ReadOnly foreground1 As ItemLayoutColors

#End Region

#Region " Constructors "

        ''' <summary>
        ''' Initializes a new instance of the <see cref="T:ItemLayout"/> class.
        ''' </summary>
        ''' <param name="listBox">The <see cref="T:ElektroListBox"/>.</param>
        ''' <exception cref="System.ArgumentNullException">layout</exception>
        Public Sub New(ByVal listBox As ElektroListBox)

            Me.listBox1 = listBox

            Me.background1 = New ItemLayoutColors(listBox) With
                             {
                                 .Selected = SystemColors.Highlight,
                                 .Unselected = SystemColors.Window,
                                 .UnselectedAlternate = SystemColors.Window
                             }

            Me.foreground1 = New ItemLayoutColors(listBox) With
                             {
                                 .Selected = SystemColors.HighlightText,
                                 .Unselected = SystemColors.WindowText,
                                 .UnselectedAlternate = SystemColors.WindowText
                             }

        End Sub

#End Region

#Region " Hidden Members "

        ''' <summary>
        ''' Retrieves the current lifetime service object that controls the lifetime policy for this instance.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        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)>
        Public Shadows Function InitializeLifeTimeService() As Object
            Return MyBase.InitializeLifetimeService
        End Function

        ''' <summary>
        ''' Creates an object that contains all the relevant information required to generate a proxy used to communicate with a remote object.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function CreateObjRef(requestedType As Type) As System.Runtime.Remoting.ObjRef
            Return MyBase.CreateObjRef(requestedType)
        End Function
        ''' <summary>
        ''' Serves as a hash function for a particular type.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function GetHashCode() As Integer
            Return MyBase.GetHashCode
        End Function
        ''' <summary>
        ''' Determines whether the specified System.Object instances are considered equal.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function Equals(ByVal obj As Object) As Boolean
            Return MyBase.Equals(obj)
        End Function

        ''' <summary>
        ''' Determines whether the specified System.Object instances are the same instance.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Private Shadows Sub ReferenceEquals()
        End Sub

        ''' <summary>
        ''' Returns a String that represents the current object.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function ToString() As String
            Return MyBase.ToString
        End Function

        ''' <summary>
        ''' Gets the System.Type of the current instance.
        ''' </summary>
        ''' <returns>The exact runtime type of the current instance.</returns>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function [GetType]() As Type
            Return MyBase.GetType
        End Function

        ''' <summary>
        ''' Releases all resources used by the System.ComponentModel.Component.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Sub Dispose()
            MyBase.Dispose()
        End Sub

        ''' <summary>
        ''' Gets or sets the System.ComponentModel.ISite of the System.ComponentModel.Component.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Property Site As ISite = MyBase.site

        ''' <summary>
        ''' Gets the System.ComponentModel.IContainer that contains the System.ComponentModel.Component.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Property Container As IContainer = MyBase.container

#End Region

    End Class

#End Region

#Region " ItemLayoutColors "

    ''' <summary>
    ''' Describes an item layout colors.
    ''' </summary>
    <ToolboxItem(False)>
    Public NotInheritable Class ItemLayoutColors : Inherits Component

#Region " Properties "

        ''' <summary>
        ''' Gets the <see cref="T:ElektroListBox"/>.
        ''' </summary>
        ''' <value>The <see cref="T:ElektroListBox"/>.</value>
        Protected ReadOnly Property ListBox() As ElektroListBox
            Get
                Return Me.listBox1
            End Get
        End Property
        ''' <summary>
        ''' The <see cref="T:ElektroListBox"/>.
        ''' </summary>
        Private ReadOnly listBox1 As ElektroListBox

        ''' <summary>
        ''' Gets or sets the selected color.
        ''' </summary>
        ''' <value>The selected color.</value>
        <Category("Appearance")>
        <Description("The background color for a selected item.")>
        Public Property Selected() As Color
            Get
                Return Me.selected1
            End Get
            Set(ByVal value As Color)
                If (value <> Me.selected1) Then
                    Me.selected1 = value
                    Me.listBox1.NotifyStateChanged(PropertyName.Selected)
                End If
            End Set
        End Property
        ''' <summary>
        ''' The selected color.
        ''' </summary>
        Private selected1 As Color

        ''' <summary>
        ''' Gets or sets the unselected color.
        ''' </summary>
        ''' <value>The unselected color.</value>
        <Category("Appearance")>
        <Description("The background color for a non selected item.")>
        Public Property Unselected() As Color
            Get
                Return Me.unselected1
            End Get
            Set(ByVal value As Color)
                If (value <> Me.unselected1) Then
                    Me.unselected1 = value
                    Me.listBox1.NotifyStateChanged(PropertyName.Unselected)
                End If
            End Set
        End Property
        ''' <summary>
        ''' The unselected color.
        ''' </summary>
        Private unselected1 As Color

        ''' <summary>
        ''' Gets or sets the alternate unselected color.
        ''' </summary>
        ''' <value>The alternate unselected color.</value>
        <Category("Appearance")>
        <Description("The alternate background color for a non selected item.")>
        Public Property UnselectedAlternate() As Color
            Get
                Return Me.unselectedAlternate1
            End Get
            Set(ByVal value As Color)
                If (value <> Me.unselectedAlternate1) Then
                    Me.unselectedAlternate1 = value
                    Me.listBox1.NotifyStateChanged(PropertyName.UnselectedAlternate)
                End If
            End Set
        End Property
        ''' <summary>
        ''' The alternate unselected color.
        ''' </summary>
        Private unselectedAlternate1 As Color

#End Region

#Region " Constructors "

        ''' <summary>
        ''' Initializes a new instance of the <see cref="T:ItemLayoutColors"/> class.
        ''' </summary>
        ''' <param name="listBox">The <see cref="T:ElektroListBox"/>.</param>
        ''' <exception cref="System.ArgumentNullException">layout</exception>
        Public Sub New(ByVal listBox As ElektroListBox)

            Me.listBox1 = listBox

        End Sub

#End Region

#Region " Hidden Members "

        ''' <summary>
        ''' Retrieves the current lifetime service object that controls the lifetime policy for this instance.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        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)>
        Public Shadows Function InitializeLifeTimeService() As Object
            Return MyBase.InitializeLifetimeService
        End Function

        ''' <summary>
        ''' Creates an object that contains all the relevant information required to generate a proxy used to communicate with a remote object.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function CreateObjRef(requestedType As Type) As System.Runtime.Remoting.ObjRef
            Return MyBase.CreateObjRef(requestedType)
        End Function
        ''' <summary>
        ''' Serves as a hash function for a particular type.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function GetHashCode() As Integer
            Return MyBase.GetHashCode
        End Function
        ''' <summary>
        ''' Determines whether the specified System.Object instances are considered equal.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function Equals(ByVal obj As Object) As Boolean
            Return MyBase.Equals(obj)
        End Function

        ''' <summary>
        ''' Determines whether the specified System.Object instances are the same instance.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Private Shadows Sub ReferenceEquals()
        End Sub

        ''' <summary>
        ''' Returns a String that represents the current object.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function ToString() As String
            Return MyBase.ToString
        End Function

        ''' <summary>
        ''' Gets the System.Type of the current instance.
        ''' </summary>
        ''' <returns>The exact runtime type of the current instance.</returns>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function [GetType]() As Type
            Return MyBase.GetType
        End Function

        ''' <summary>
        ''' Releases all resources used by the System.ComponentModel.Component.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Sub Dispose()
            MyBase.Dispose()
        End Sub

        ''' <summary>
        ''' Gets or sets the System.ComponentModel.ISite of the System.ComponentModel.Component.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Property Site As ISite = MyBase.site

        ''' <summary>
        ''' Gets the System.ComponentModel.IContainer that contains the System.ComponentModel.Component.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Property Container As IContainer = MyBase.container

#End Region

    End Class

#End Region

#Region " StringFormatLayout "

    ''' <summary>
    ''' Describes an StringFormat layout.
    ''' </summary>
    <ToolboxItem(False)>
    Public NotInheritable Class StringFormatLayout : Inherits Component

#Region " Properties "

        ''' <summary>
        ''' Gets the <see cref="T:ElektroListBox"/>.
        ''' </summary>
        ''' <value>The <see cref="T:ElektroListBox"/>.</value>
        Protected ReadOnly Property ListBox() As ElektroListBox
            Get
                Return Me.listBox1
            End Get
        End Property
        ''' <summary>
        ''' The <see cref="T:ElektroListBox"/>.
        ''' </summary>
        Private ReadOnly listBox1 As ElektroListBox

        ''' <summary>
        ''' Gets or sets the alignment of a text string relative to its layout rectangle.
        ''' </summary>
        ''' <value>The alignment of a text string relative to its layout rectangle.</value>
        <Category("Appearance")>
        <Description("The alignment of a text string relative to its layout rectangle.")>
        <Browsable(True)>
        <EditorBrowsable(EditorBrowsableState.Always)>
        <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)>
        Public Property Alignment As StringAlignment
            Get
                Return Me.alignment1
            End Get
            Set(ByVal value As StringAlignment)
                Me.alignment1 = value
                Me.listBox1.NotifyStateChanged(PropertyName.StringFormat)
            End Set
        End Property
        ''' <summary>
        ''' The alignment of a text string relative to its layout rectangle.
        ''' </summary>
        Private alignment1 As StringAlignment = StringAlignment.Near

        ''' <summary>
        ''' Gets or sets the alignment of a text string relative to its layout rectangle.
        ''' </summary>
        ''' <value>The alignment of a text string relative to its layout rectangle.</value>
        <Category("Appearance")>
        <Description("The alignment of a text string relative to its layout rectangle.")>
        <Browsable(True)>
        <EditorBrowsable(EditorBrowsableState.Always)>
        <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)>
        Public Property LineAlignment As StringAlignment
            Get
                Return Me.lineAlignment1
            End Get
            Set(ByVal value As StringAlignment)
                Me.lineAlignment1 = value
                Me.listBox1.NotifyStateChanged(PropertyName.StringFormat)
            End Set
        End Property
        ''' <summary>
        ''' The alignment of a text string relative to its layout rectangle.
        ''' </summary>
        Private lineAlignment1 As StringAlignment = StringAlignment.Center

        ''' <summary>
        ''' Gets or sets a value indicating how to trim characters from a string that does not completely fit into a layout shape.
        ''' </summary>
        ''' <value>A value indicating how to trim characters from a string that does not completely fit into a layout shape.</value>
        <Category("Appearance")>
        <Description("Specifies how to trim characters from a string that does not completely fit into a layout shape.")>
        <Browsable(True)>
        <EditorBrowsable(EditorBrowsableState.Always)>
        <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)>
        Public Property Trimming As StringTrimming
            Get
                Return Me.trimming1
            End Get
            Set(ByVal value As StringTrimming)
                Me.trimming1 = value
                Me.listBox1.NotifyStateChanged(PropertyName.StringFormat)
            End Set
        End Property
        ''' <summary>
        ''' A value indicating how to trim characters from a string that does not completely fit into a layout shape.
        ''' </summary>
        Private trimming1 As StringTrimming = StringTrimming.None

        ''' <summary>
        ''' Gets or sets the display and layout information for text strings.
        ''' </summary>
        ''' <value>The display and layout information for text strings.</value>
        <Category("Appearance")>
        <Description("Specifies the display and layout information for text strings.")>
        <Browsable(True)>
        <EditorBrowsable(EditorBrowsableState.Always)>
        <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)>
        Public Property FormatFlags As StringFormatFlags
            Get
                Return Me.formatFlags1
            End Get
            Set(ByVal value As StringFormatFlags)
                Me.formatFlags1 = value
                Me.listBox1.NotifyStateChanged(PropertyName.StringFormat)
            End Set
        End Property
        ''' <summary>
        ''' The display and layout information for text strings
        ''' </summary>
        Private formatFlags1 As StringFormatFlags = StringFormatFlags.NoWrap

#End Region

#Region " Constructors "

        ''' <summary>
        ''' Initializes a new instance of the <see cref="T:StateLayout"/> class.
        ''' </summary>
        ''' <param name="listBox">The <see cref="T:ElektroListBox"/>.</param>
        Public Sub New(ByVal listBox As ElektroListBox)

            Me.listBox1 = listBox

        End Sub

#End Region

#Region " Hidden Members "

        ''' <summary>
        ''' Retrieves the current lifetime service object that controls the lifetime policy for this instance.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        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)>
        Public Shadows Function InitializeLifeTimeService() As Object
            Return MyBase.InitializeLifetimeService
        End Function

        ''' <summary>
        ''' Creates an object that contains all the relevant information required to generate a proxy used to communicate with a remote object.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function CreateObjRef(requestedType As Type) As System.Runtime.Remoting.ObjRef
            Return MyBase.CreateObjRef(requestedType)
        End Function
        ''' <summary>
        ''' Serves as a hash function for a particular type.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function GetHashCode() As Integer
            Return MyBase.GetHashCode
        End Function
        ''' <summary>
        ''' Determines whether the specified System.Object instances are considered equal.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function Equals(ByVal obj As Object) As Boolean
            Return MyBase.Equals(obj)
        End Function

        ''' <summary>
        ''' Determines whether the specified System.Object instances are the same instance.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Private Shadows Sub ReferenceEquals()
        End Sub

        ''' <summary>
        ''' Returns a String that represents the current object.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function ToString() As String
            Return MyBase.ToString
        End Function

        ''' <summary>
        ''' Gets the System.Type of the current instance.
        ''' </summary>
        ''' <returns>The exact runtime type of the current instance.</returns>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function [GetType]() As Type
            Return MyBase.GetType
        End Function

        ''' <summary>
        ''' Releases all resources used by the System.ComponentModel.Component.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Sub Dispose()
            MyBase.Dispose()
        End Sub

        ''' <summary>
        ''' Gets or sets the System.ComponentModel.ISite of the System.ComponentModel.Component.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Property Site As ISite = MyBase.site

        ''' <summary>
        ''' Gets the System.ComponentModel.IContainer that contains the System.ComponentModel.Component.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Property Container As IContainer = MyBase.container

#End Region

    End Class

#End Region

#Region " GridLayout "

    ''' <summary>
    ''' Describes a Grid layout.
    ''' </summary>
    <ToolboxItem(False)>
    Public NotInheritable Class GridLayout : Inherits Component

#Region " Properties "

        ''' <summary>
        ''' Gets the <see cref="T:ElektroListBox"/>.
        ''' </summary>
        ''' <value>The <see cref="T:ElektroListBox"/>.</value>
        Protected ReadOnly Property ListBox() As ElektroListBox
            Get
                Return Me.listBox1
            End Get
        End Property
        ''' <summary>
        ''' The <see cref="T:ElektroListBox"/>.
        ''' </summary>
        Private ReadOnly listBox1 As ElektroListBox

        ''' <summary>
        ''' Gets or sets a value indicating whether grid lines drawing are enabled to separate items.
        ''' </summary>
        ''' <value>A value indicating whether grid lines drawing are enabled to separate items.</value>
        <Category("Appearance")>
        <Description("Enable or disable the grid lines.")>
        <Browsable(True)>
        <EditorBrowsable(EditorBrowsableState.Always)>
        <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)>
        Public Property Enabled As Boolean
            Get
                Return Me.enabled1
            End Get
            Set(ByVal value As Boolean)
                Me.enabled1 = value
                Me.listBox1.NotifyStateChanged(PropertyName.Grid)
            End Set
        End Property
        ''' <summary>
        ''' A value indicating whether grid lines drawing are enabled to separate items.
        ''' </summary>
        Private enabled1 As Boolean = False

        ''' <summary>
        ''' Gets or sets the grid lines color.
        ''' </summary>
        ''' <value>The grid lines color.</value>
        <Category("Appearance")>
        <Description("The alignment of a text string relative to its layout rectangle.")>
        <Browsable(True)>
        <EditorBrowsable(EditorBrowsableState.Always)>
        <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)>
        Public Property Color As Color
            Get
                Return Me.color1
            End Get
            Set(ByVal value As Color)
                Me.color1 = value
                Me.listBox1.NotifyStateChanged(PropertyName.Grid)
            End Set
        End Property
        ''' <summary>
        ''' The grid lines color.
        ''' </summary>
        Private color1 As Color = Color.Black

#End Region

#Region " Constructors "

        ''' <summary>
        ''' Initializes a new instance of the <see cref="T:GridLayout"/> class.
        ''' </summary>
        ''' <param name="listBox">The <see cref="T:ElektroListBox"/>.</param>
        Public Sub New(ByVal listBox As ElektroListBox)

            Me.listBox1 = listBox

        End Sub

#End Region

#Region " Hidden Members "

        ''' <summary>
        ''' Retrieves the current lifetime service object that controls the lifetime policy for this instance.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        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)>
        Public Shadows Function InitializeLifeTimeService() As Object
            Return MyBase.InitializeLifetimeService
        End Function

        ''' <summary>
        ''' Creates an object that contains all the relevant information required to generate a proxy used to communicate with a remote object.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function CreateObjRef(requestedType As Type) As System.Runtime.Remoting.ObjRef
            Return MyBase.CreateObjRef(requestedType)
        End Function
        ''' <summary>
        ''' Serves as a hash function for a particular type.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function GetHashCode() As Integer
            Return MyBase.GetHashCode
        End Function
        ''' <summary>
        ''' Determines whether the specified System.Object instances are considered equal.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function Equals(ByVal obj As Object) As Boolean
            Return MyBase.Equals(obj)
        End Function

        ''' <summary>
        ''' Determines whether the specified System.Object instances are the same instance.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Private Shadows Sub ReferenceEquals()
        End Sub

        ''' <summary>
        ''' Returns a String that represents the current object.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function ToString() As String
            Return MyBase.ToString
        End Function

        ''' <summary>
        ''' Gets the System.Type of the current instance.
        ''' </summary>
        ''' <returns>The exact runtime type of the current instance.</returns>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Function [GetType]() As Type
            Return MyBase.GetType
        End Function

        ''' <summary>
        ''' Releases all resources used by the System.ComponentModel.Component.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Sub Dispose()
            MyBase.Dispose()
        End Sub

        ''' <summary>
        ''' Gets or sets the System.ComponentModel.ISite of the System.ComponentModel.Component.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Property Site As ISite = MyBase.site

        ''' <summary>
        ''' Gets the System.ComponentModel.IContainer that contains the System.ComponentModel.Component.
        ''' </summary>
        <EditorBrowsable(EditorBrowsableState.Never)>
        Public Shadows Property Container As IContainer = MyBase.container

#End Region

    End Class

#End Region

#End Region

#Region " Enumerations "

    ''' <summary>
    ''' Specifies an <see cref="T:ElektroListBox"/> item state.
    ''' </summary>
    Public Enum ItemState As Integer

        ''' <summary>
        ''' Selects the listbox Item.
        ''' </summary>
        Selected = -&H1 ' True

        ''' <summary>
        ''' Unselects the listbox Item.
        ''' </summary>
        Unselected = &H0 ' False

    End Enum

    ''' <summary>
    ''' Indicates the <see cref="T:ElektroListBox"/> items to select.
    ''' </summary>
    Public Enum ListBoxItems As Integer

        ''' <summary>
        ''' Selects all the items.
        ''' </summary>
        All = -&H1 ' True

        ''' <summary>
        ''' Unselects all the items.
        ''' </summary>
        None = &H0 ' False

    End Enum

    ''' <summary>
    ''' Specifies a Windows Message.
    ''' </summary>
    Private Enum WindowsMessages As Integer

        ''' <summary>
        ''' Posted when the user presses the left mouse button while the cursor is in the client area of a window.
        ''' If the mouse is not captured, the message is posted to the window beneath the cursor.
        ''' Otherwise, the message is posted to the window that has captured the mouse.
        ''' MSDN Documentation: http://msdn.microsoft.com/es-es/library/windows/desktop/ms645607%28v=vs.85%29.aspx
        ''' </summary>
        WM_LBUTTONDOWN = &H201

        ''' <summary>
        ''' Posted to the window with the keyboard focus when a nonsystem key is pressed.
        ''' A nonsystem key is a key that is pressed when the ALT key is not pressed.
        ''' MSDN Documentation: http://msdn.microsoft.com/es-es/library/windows/desktop/ms646280%28v=vs.85%29.aspx
        ''' </summary>
        WM_KEYDOWN = &H100

        ' ''' <summary>
        ' ''' Sent when the system or another application makes a request to paint a portion of an application's window.
        ' ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/dd145213%28v=vs.85%29.aspx
        ' ''' </summary>
        ' WM_PAINT = &HF

        ' ''' <summary>
        ' ''' Sent to a window when its frame must be painted.
        ' ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/dd145212%28v=vs.85%29.aspx
        ' ''' </summary>
        WM_NCPAINT = &H85

    End Enum

    ''' <summary>
    ''' Specifies a property name of an the <see cref="T:ItemLayout"/>.
    ''' </summary>
    Private Enum PropertyName

        ''' <summary>
        ''' The selected item's color.
        ''' </summary>
        Selected

        ''' <summary>
        ''' The unselected item's color.
        ''' </summary>
        Unselected

        ''' <summary>
        ''' The unselected alternate item's color.
        ''' </summary>
        UnselectedAlternate

        ''' <summary>
        ''' The control's state (Enabled, Disabled, ReadOnly).
        ''' </summary>
        State

        ''' <summary>
        ''' The control's cursor.
        ''' </summary>
        Cursor

        ''' <summary>
        ''' The control's border color.
        ''' </summary>
        BorderColor

        ''' <summary>
        ''' The string formatting.
        ''' </summary>
        StringFormat

        ''' <summary>
        ''' The grid lines.
        ''' </summary>
        Grid

    End Enum

#End Region

#Region " Events "

#End Region

#Region " Public Methods "

    ''' <summary>
    ''' Returns a value indicating whether this <see cref="T:ElektroListBox"/> contains duplicated items.
    ''' </summary>
    Public Function HasDuplicatedItems() As Boolean

        Return CBool(Me.Items.Count - Me.Items.Cast(Of String).Distinct().Count)

    End Function

    ''' <summary>
    ''' Removes all duplicated items in this <see cref="T:ElektroListBox"/>.
    ''' </summary>
    Public Sub RemoveDuplicatedItems()

        If Me.HasDuplicatedItems() Then

            Dim items As IEnumerable(Of String) = Me.Items.Cast(Of String).Distinct()

            Me.Items.Clear()
            Me.Items.AddRange(items.ToArray)

        End If

    End Sub

    ''' <summary>
    ''' Selects or unselects a ListBox Item without jumping at Item position.
    ''' </summary>
    ''' <param name="ItemIndex">Indicates the index of the Item to set.</param>
    ''' <param name="ItemState">Indicates the state for the item.</param>
    ''' <exception cref="System.ArgumentOutOfRangeException">itemIndex</exception>
    Public Sub SetSelectedNoJump(ByVal itemIndex As Integer,
                                 ByVal itemState As ItemState)

        If (itemIndex > Me.Items.Count) Then
            Throw New ArgumentOutOfRangeException("itemIndex")
        End If

        Me.SetSelectedNoJump({itemIndex}, itemState)

    End Sub

    ''' <summary>
    ''' Selects or unselects ListBox Items without jumping at Item position.
    ''' </summary>
    ''' <param name="ItemIndex">Indicates the index of the Items to set.</param>
    ''' <param name="ItemState">Indicates the state for the items.</param>
    ''' <exception cref="System.ArgumentOutOfRangeException">itemIndex</exception>
    Public Sub SetSelectedNoJump(ByVal itemIndex As IEnumerable(Of Integer),
                                 ByVal itemState As ItemState)

        If itemIndex.Max > Me.Items.Count Then
            Throw New ArgumentOutOfRangeException("itemIndex")
        End If

        ' Store the selected item index.
        Dim i As Integer = Me.TopIndex

        ' Disable drawing on control.
        Me.BeginUpdate()

        For Each index As Integer In itemIndex

            ' Select or Unselect the item.
            Me.SetSelected(index, CBool(itemState))

        Next index

        ' Jump to the previous selected item.
        Me.TopIndex = i

        ' Eenable drawing.
        Me.EndUpdate()

    End Sub

    ''' <summary>
    ''' Selects or unselects all the items in this <see cref="T:ElektroListBox"/>.
    ''' </summary>
    ''' <param name="ListBoxItems">Indicates the Items to select or unselect.</param>
    Public Sub SetSelectedAllorNone(ByVal listBoxItems As ListBoxItems)

        If ((Me.SelectedItems.Count = 0) AndAlso (listBoxItems = ElektroListBox.ListBoxItems.None)) _
        OrElse ((Me.SelectedItems.Count = Me.Items.Count) AndAlso (listBoxItems = ElektroListBox.ListBoxItems.All)) Then

            Exit Sub

        End If

        Me.SetSelectedNoJump(Enumerable.Range(0, Me.Items.Count), DirectCast(listBoxItems, ItemState))

    End Sub

    ''' <summary>
    ''' Moves an item to other position.
    ''' </summary>
    ''' <param name="oldIndex">The item index.</param>
    ''' <param name="newIndex">The new item index.</param>
    ''' <exception cref="System.ArgumentOutOfRangeException">oldIndex or newIndex</exception>
    Public Sub MoveItem(ByVal oldIndex As Integer, ByVal newIndex As Integer)

        Dim itemCount As Integer = Me.Items.Count

        If (oldIndex < itemCount) OrElse (oldIndex > itemCount) Then
            Throw New ArgumentOutOfRangeException("oldIndex")

        ElseIf (newIndex < itemCount) OrElse (newIndex > itemCount) Then
            Throw New ArgumentOutOfRangeException("newIndex")

        Else
            Dim oldItem As Object = Me.Items.Item(oldIndex)
            Dim newItem As Object = Me.Items.Item(newIndex)

            Me.Items.Item(oldIndex) = newItem
            Me.Items.Item(newIndex) = oldItem

        End If

    End Sub

#End Region

#Region " Private Methods "

    ''' <summary>
    ''' Gets the current state layout.
    ''' </summary>
    ''' <returns>StateLayout.</returns>
    Private Function GetStateLayout() As StateLayout

        If MyBase.Enabled AndAlso Not Me.[ReadOnly] Then ' Is Enabled
            Return Me.stateEnabled1

        ElseIf Not MyBase.Enabled Then ' Is Disabled
            Return Me.stateDisabled1

        ElseIf Me.[ReadOnly] Then ' Is ReadOnly
            Return Me.stateReadOnly1

        Else
            Return Nothing

        End If

    End Function

    ''' <summary>
    ''' Notifies a property change.
    ''' </summary>
    ''' <param name="propertyName">Name of the property.</param>
    Private Sub NotifyStateChanged(ByVal propertyName As PropertyName)

#If DEBUG Then

        Debug.WriteLine(String.Format("[{0}]: Property state changed. Property name: {1}",
                                      Me.Name, propertyName.ToString))

#End If

        Select Case propertyName

            Case ElektroListBox.PropertyName.Selected,
                 ElektroListBox.PropertyName.Unselected,
                 ElektroListBox.PropertyName.UnselectedAlternate,
                 ElektroListBox.PropertyName.StringFormat,
                 ElektroListBox.PropertyName.Grid
                 Me.Invalidate(invalidateChildren:=False)

            Case ElektroListBox.PropertyName.State,
                 ElektroListBox.PropertyName.Cursor
                Me.SetCursor()
                Me.DrawBorder(Nothing)

            Case ElektroListBox.PropertyName.BorderColor
                Me.DrawBorder(Nothing)

        End Select

    End Sub

    ''' <summary>
    ''' Sets the control's cursor.
    ''' </summary>
    Private Sub SetCursor()

        Me.Cursor = Me.GetStateLayout.Cursor

    End Sub

    ''' <summary>
    ''' Draws a border on the control's surface.
    ''' </summary>
    ''' <param name="m">The Windows <see cref="T:System.Windows.Forms.Message"/> to process.</param>
    Private Sub DrawBorder(Optional ByRef m As Message = Nothing)

        Dim handle As IntPtr = If(m <> Nothing,
                                  m.HWnd,
                                  Me.Handle)

        Dim hdc As IntPtr = NativeMethods.GetWindowDC(handle)

        If hdc <> IntPtr.Zero Then

            If m <> Nothing Then
                MyBase.WndProc(m) ' Call it to draw what it needs.
            End If

            Dim borderColor As Color = Me.GetStateLayout.BorderColor

            Using g As Graphics = Graphics.FromHdc(hdc)

                g.CompositingQuality = CompositingQuality.Invalid
                g.SmoothingMode = SmoothingMode.None
                g.PixelOffsetMode = PixelOffsetMode.None
                g.InterpolationMode = InterpolationMode.NearestNeighbor

                Using p As New Pen(borderColor)

                    g.DrawRectangle(p, 0, 0, Me.Width - p.Width, Me.Height - p.Width)

                End Using ' p

            End Using ' g

        End If

        NativeMethods.ReleaseDC(handle, hdc)

    End Sub

    ''' <summary>
    ''' Colorizes the <see cref="T:ElektroListBox"/>.
    ''' </summary>
    ''' <param name="e">The <see cref="DrawItemEventArgs"/> instance containing the event data.</param>
    Private Sub DrawItems(ByVal e As DrawItemEventArgs)

        If Not (Me.Items.Count <> 0) Then
            Exit Sub
        End If

        Dim state As StateLayout = Me.GetStateLayout

        Dim backColor As Color
        Dim foreColor As Color
        Dim gridLineColor As Color = Me.stateEnabled1.Grid.Color
        Dim gridEnabled As Boolean = Me.stateEnabled1.Grid.Enabled
        Dim alternate As Boolean = CBool(e.Index Mod 2 <> 0)

        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then ' selected item
            backColor = state.Items.Background.Selected
            foreColor = state.Items.Foreground.Selected

        ElseIf (e.State And DrawItemState.Selected) = DrawItemState.None Then ' unselected item
            If alternate Then ' Alternate color
                backColor = state.Items.Background.UnselectedAlternate
                foreColor = state.Items.Foreground.UnselectedAlternate
            Else
                backColor = state.Items.Background.Unselected
                foreColor = state.Items.Foreground.Unselected
            End If

        End If

        With e

            .Graphics.CompositingQuality = CompositingQuality.Invalid
            .Graphics.SmoothingMode = SmoothingMode.None
            .Graphics.PixelOffsetMode = PixelOffsetMode.None
            .Graphics.InterpolationMode = InterpolationMode.NearestNeighbor

            ' .DrawBackground()

            Using backgroundBrush As New SolidBrush(backColor)

                ' Draw the item background.
                .Graphics.FillRectangle(backgroundBrush, e.Bounds)

                If gridEnabled Then ' Draw the item grid line.

                    Using pen As New Pen(gridLineColor)

                        .Graphics.CompositingQuality = CompositingQuality.Invalid
                        .Graphics.SmoothingMode = SmoothingMode.None
                        .Graphics.PixelOffsetMode = PixelOffsetMode.None
                        .Graphics.InterpolationMode = InterpolationMode.NearestNeighbor

                        If e.Index = 0 Then
                            .Graphics.DrawLine(pen,
                                               New Point(e.Bounds.X, e.Bounds.Y - 1),
                                               New Point(e.Bounds.Right, e.Bounds.Top - 1))
                        Else
                            .Graphics.DrawLine(pen,
                                               New Point(e.Bounds.X, e.Bounds.Y),
                                               New Point(e.Bounds.Right, e.Bounds.Top))
                        End If

                    End Using ' pen

                End If ' gridEnabled

            End Using ' backgroundBrush

            ' Draw the item text.
            Using foregroundBrush As New SolidBrush(foreColor)

                .Graphics.DrawString(MyBase.GetItemText(MyBase.Items(e.Index)),
                                      e.Font,
                                      foregroundBrush,
                                      e.Bounds)

            End Using ' foregroundBrush

            ' Draw the item's focused rectangle.
            .DrawFocusRectangle()

        End With

    End Sub

#End Region

#Region " Event Handlers "

    ''' <summary>
    ''' Handles the <see cref="E:EnabledChanged"/> event of the <see cref="T:ElektroListBox"/> control.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
    Private Sub MyBase_EnabledChanged(ByVal sender As Object, ByVal e As EventArgs) _
    Handles MyBase.EnabledChanged

        Me.NotifyStateChanged(PropertyName.State)

    End Sub

    ''' <summary>
    ''' Handles the DrawItem event of the the <see cref="T:ElektroListBox"/>.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="DrawItemEventArgs"/> instance containing the event data.</param>
    Private Sub MyBase_DrawItem(ByVal sender As Object, ByVal e As DrawItemEventArgs) _
    Handles MyBase.DrawItem

        Me.DrawItems(e)

    End Sub

#End Region

#Region " Windows Procedure "

    ''' <summary>
    ''' Processes messages for this window.
    ''' </summary>
    ''' <param name="m">The Windows <see cref="T:System.Windows.Forms.Message"/> to process.</param>
    Protected Overrides Sub WndProc(ByRef m As Message)

        Select Case m.Msg

            Case WindowsMessages.WM_LBUTTONDOWN, WindowsMessages.WM_KEYDOWN
                If Me.[ReadOnly] Then
                    ' Disable left click or keyboard on the ListBox.
                    Return
                End If

            Case WindowsMessages.WM_NCPAINT
                Me.DrawBorder(m)
                Return

        End Select

        MyBase.WndProc(m)

    End Sub

#End Region

End Class

#End Region