#Region " Create a WorkBook "
 
        ' Create the excel workbook.
        Dim workbook As IWorkbook = New XSSFWorkbook()
 
        ' Create a sheet.
        Dim sheet As ISheet = workbook.CreateSheet("Sheet A1")
 
        ' Create a cell.
        Dim cell As ICell = sheet.CreateRow(0).CreateCell(0)
 
        ' Set cell value.
        cell.SetCellValue("This is a test")
 
        ' Set the width of column A1.
        sheet.SetColumnWidth(0, 50 * 256)
 
        ' Set the height of row A1.
        sheet.CreateRow(0).Height = 200
 
        ' Save changes.
        Using sw As IO.FileStream = IO.File.Create(".\Create a Workbook Example.xlsx")
            workbook.Write(sw)
        End Using
 
#End Region

#Region " Set Header and Footer "
 
    ' Create the excel workbook.
    Dim workbook As IWorkbook = New XSSFWorkbook()
    Dim sheet As ISheet = workbook.CreateSheet("Sheet1") ' Create a sheet.
 
    With sheet
 
    ' Create a cell and add a value.
        .CreateRow(0).CreateCell(1).SetCellValue("test")
 
    ' Set header text.
        .Header.Left = HSSFHeader.Page
 
    ' Page is a static property of HSSFHeader and HSSFFooter.
        .Header.Center = "This is a test sheet"
 
    ' Set footer text.
        .Footer.Left = "Copyright NPOI Team"
        .Footer.Right = "created by Tony Qu（瞿杰）"
 
    End With
 
     Save changes.
    Using sw As IO.FileStream = IO.File.Create(".\Header-Footer Example.xlsx")
        workbook.Write(sw)
    End Using
 
#End Region

#Region " Add Comments "
 
    ' Create the excel workbook.
    Dim workbook As IWorkbook = New XSSFWorkbook()
    Dim sheet As ISheet = workbook.CreateSheet("some comments") ' Create the first sheet.
 
    ' Create the drawing patriarch. This is the top level container for all shapes including cell comments.
    Dim patr As IDrawing = sheet.CreateDrawingPatriarch()
 
    ' Create a cell in row 3.
    Dim cell1 As ICell = sheet.CreateRow(3).CreateCell(1)
    cell1.SetCellValue(New XSSFRichTextString("Hello, World"))
 
    ' Create a richtext to use it in the comment.
    Dim strComment As New XSSFRichTextString("This is saying you hello")
 
    ' Create the richtext font style.
    Dim font As IFont = workbook.CreateFont()
    With font
        .FontName = "Arial"
        .FontHeightInPoints = 10
        .Boldweight = CShort(FontBoldWeight.Bold)
        .Color = HSSFColor.Red.Index
    End With
 
    ' Apply font style to the text in the comment.
    strComment.ApplyFont(font)
 
    ' Create a comment, Anchor defines size and position of the comment in worksheet.
    Dim comment1 As IComment = patr.CreateCellComment(New XSSFClientAnchor(0, 0, 0, 0, 4, 2, 6, 5))
    With comment1
 
    ' Set comment text.
        .[String] = strComment
 
    ' Set comment author.
        .Author = "Elektro"
 
    ' By default comments are hidden. This one is always visible.
        .Visible = True
 
    End With
 
    '* The first way to assign comment to a cell is via CellComment method:
    cell1.CellComment = comment1
    '* The second way to assign comment to a cell is to implicitly specify its row and column.
    '* Note: It is possible to set row and column of a non-existing cell.
    comment1.Row = 3
    comment1.Column = 1
 
    ' Save changes.
    Using sw As IO.FileStream = IO.File.Create(".\Comment Example.xlsx")
        workbook.Write(sw)
    End Using
 
#End Region

#Region " Set Custom Properties "
 
    ' Create the excel workbook.
    Dim workbook As XSSFWorkbook = New XSSFWorkbook()
    Dim sheet As ISheet = workbook.CreateSheet("Sheet1") ' Create the first sheet.
 
    ' Get the properties.
    Dim props As POIXMLProperties = workbook.GetProperties()
 
    With props ' Set some default properties.
        .CoreProperties.Title = "Properties Example"
        .CoreProperties.Creator = "Elektro"
        .CoreProperties.Created = DateTime.Now
    End With
 
    ' Set a custom property.
    If Not props.CustomProperties.Contains("My Property Name") Then
        props.CustomProperties.AddProperty("My Property Name", "Hello World!")
    End If
 
    ' Save changes.
    Using sw As IO.FileStream = IO.File.Create(".\Properties Example.xlsx")
        workbook.Write(sw)
    End Using
 
#End Region

#Region " Fill Cell Background "
 
    ' Create the excel workbook.
    Dim workbook As IWorkbook = New XSSFWorkbook()
 
    ' Create a sheet.
    Dim sheet As ISheet = workbook.CreateSheet("Sheet1")
 
    ' Create a cell.
    Dim cell1 As ICell = sheet.CreateRow(0).CreateCell(0)
 
    ' Set the cell text.
    cell1.SetCellValue("Hello")
 
    ' Set the Background Style.
    Dim style As ICellStyle = workbook.CreateCellStyle()
    With style
        .FillForegroundColor = IndexedColors.Blue.Index
        .FillPattern = FillPattern.BigSpots
        .FillBackgroundColor = IndexedColors.Pink.Index
    End With
 
    ' Fill the cell background.
    cell1.CellStyle = style
 
    ' Save changes.
    Using sw As IO.FileStream = IO.File.Create(".\Fill background Example.xlsx")
        workbook.Write(sw)
    End Using
 
#End Region

#Region " Add HyperLinks "
 
    ' Create the excel workbook.
    Dim workbook As IWorkbook = New XSSFWorkbook()
    Dim cell As ICell = Nothing
    Dim sheet As ISheet = workbook.CreateSheet("Hyperlinks") ' Create the first sheet.
 
    ' Set the Hyperlink style.
    Dim HyperLinkStyle As ICellStyle = workbook.CreateCellStyle()
    Dim HyperLinkFont As IFont = workbook.CreateFont()
    HyperLinkFont.Underline = FontUnderlineType.[Single]
    HyperLinkFont.Color = HSSFColor.Blue.Index
    HyperLinkStyle.SetFont(HyperLinkFont)
 
    ' Link to an URL.
    Dim LinkURL As New XSSFHyperlink(HyperlinkType.Url) With {.Address = "http://poi.apache.org/"}
    cell = sheet.CreateRow(0).CreateCell(0)
    With cell
        .SetCellValue("URL Link")
        .Hyperlink = LinkURL
        .CellStyle = HyperLinkStyle
    End With
 
    ' Link to a file.
    Dim LinkFile As New XSSFHyperlink(HyperlinkType.File) With {.Address = "link1.xls"}
    cell = sheet.CreateRow(1).CreateCell(0)
    With cell
        .SetCellValue("File Link")
        .Hyperlink = LinkFile
        .CellStyle = HyperLinkStyle
    End With
 
    ' Link to an e-amil.
    Dim LinkMail As New XSSFHyperlink(HyperlinkType.Email) With {.Address = "mailto:poi@apache.org?subject=Hyperlinks"}
    With cell
        cell = sheet.CreateRow(2).CreateCell(0)
        .SetCellValue("Email Link")
        .Hyperlink = LinkMail
        .CellStyle = HyperLinkStyle
    End With
 
    ' Link to a place in the workbook.
    Dim LinkSheet As New XSSFHyperlink(HyperlinkType.Document) With {.Address = "'Target ISheet'!A1"}
    Dim sheet2 As ISheet = workbook.CreateSheet("Target ISheet") ' Create a target sheet.
    sheet2.CreateRow(0).CreateCell(0).SetCellValue("Target ICell") ' Create a target cell.
    With cell
        cell = sheet.CreateRow(3).CreateCell(0)
        .SetCellValue("Worksheet Link")
        .Hyperlink = LinkSheet
        .CellStyle = HyperLinkStyle
    End With
 
    ' Save changes.
    Using sw As IO.FileStream = IO.File.Create(".\HyperLink Example.xlsx")
        workbook.Write(sw)
    End Using
 
#End Region

#Region " Set Font style "
 
    ' Create the excel workbook.
    Dim workbook As IWorkbook = New XSSFWorkbook()
    Dim sheet1 As ISheet = workbook.CreateSheet("Sheet1") ' Create the first sheet.
 
    ' Create a cell style.
    Dim style1 As ICellStyle = workbook.CreateCellStyle()
 
    ' Create a font style.
    Dim font1 As IFont = workbook.CreateFont()
    With font1 ' underlined, italic, red color, fontsize=20
        .Color = IndexedColors.Red.Index
        .IsItalic = True
        .Underline = FontUnderlineType.[Double]
        .FontHeightInPoints = 20
    End With
 
    ' bind font1 with style1
    style1.SetFont(font1)
 
    ' Create a cell, add text, and apply the font.
    Dim cell1 As ICell = sheet1.CreateRow(1).CreateCell(1)
    With cell1
        .SetCellValue("Hello World!")
        .CellStyle = style1
    End With
 
    ' Save changes.
    Using sw As IO.FileStream = IO.File.Create(".\Font-Style Example.xlsx")
        workbook.Write(sw)
    End Using
 
#End Region

#Region " Set Font style RichText "
 
    ' Create the excel workbook.
    Dim workbook As IWorkbook = New XSSFWorkbook()
    Dim sheet1 As ISheet = workbook.CreateSheet("Sheet1") ' Create the first sheet.
 
    ' Create a cell with rich text.
    Dim cell1 As ICell = sheet1.CreateRow(0).CreateCell(0)
 
    ' Create a richtext.
    Dim richtext As New XSSFRichTextString("Microsoft OfficeTM")
 
    ' Create a font style.
    Dim font1 As IFont = workbook.CreateFont()
    With font1
        .FontHeightInPoints = 12
    End With
    richtext.ApplyFont(0, 16, font1) ' apply font to "Microsoft Office".
 
    ' Create a font style.
    Dim font2 As IFont = workbook.CreateFont()
    With font2
        .TypeOffset = FontSuperScript.Super
        .IsItalic = True
        .Color = IndexedColors.Blue.Index
        .FontHeightInPoints = 8
    End With
    richtext.ApplyFont(16, 18, font2) ' apply font to "TM"
 
    ' Add the richtext into the cell.
    cell1.SetCellValue(richtext)
 
    ' Save changes.
    Using sw As IO.FileStream = IO.File.Create(".\Font-Style RichText Example.xlsx")
        workbook.Write(sw)
    End Using
 
#End Region

#Region " Add a Table "
 
    ' Create the excel workbook.
    Dim workbook As IWorkbook = New XSSFWorkbook()
    Dim sheet1 As XSSFSheet = DirectCast(workbook.CreateSheet("Sheet1"), XSSFSheet) ' Create the first sheet.
 
    ' Create a cell with text.
    sheet1.CreateRow(0).CreateCell(0).SetCellValue("This is a Sample")
 
    ' Create a table.
    Dim x As Integer = 1
    For i As Integer = 1 To 15
    Dim row As IRow = sheet1.CreateRow(i)
        For j As Integer = 0 To 14
            row.CreateCell(j).SetCellValue(System.Math.Max(System.Threading.Interlocked.Increment(x), x - 1))
        Next j
    Next i
    Dim table As XSSFTable = sheet1.CreateTable()
    table.Name = "Tabella1"
    table.DisplayName = "Tabella1"
 
    ' Save changes.
    Using sw As IO.FileStream = IO.File.Create(".\Table Example.xlsx")
        workbook.Write(sw)
    End Using
 
#End Region

#Region " Format Cell Data "
 
    Private Sub Test() Handles MyBase.Shown
 
        ' Create the excel workbook.
        Dim workbook As IWorkbook = New XSSFWorkbook()
 
        ' Create a sheet.
        Dim sheet As ISheet = workbook.CreateSheet("Sheet1")
 
        ' Create the format instance.
        Dim format As IDataFormat = workbook.CreateDataFormat()
 
        ' Increase the width of Column A.
        sheet.SetColumnWidth(0, 5000)
 
        ' Create a row and put some cells in it. Rows are 0 based.
        Dim cell1 As ICell = sheet.CreateRow(0).CreateCell(0)
        Dim cell2 As ICell = sheet.CreateRow(1).CreateCell(0)
        Dim cell3 As ICell = sheet.CreateRow(2).CreateCell(0)
        Dim cell4 As ICell = sheet.CreateRow(3).CreateCell(0)
        Dim cell5 As ICell = sheet.CreateRow(4).CreateCell(0)
        Dim cell6 As ICell = sheet.CreateRow(5).CreateCell(0)
        Dim cell7 As ICell = sheet.CreateRow(6).CreateCell(0)
 
        ' Format the cell values.
 
        ' [Cell1]
        ' Number format with 2 digits after the decimal point. eg: "1.20"
        SetValueAndFormat(workbook, cell1, 1.2, HSSFDataFormat.GetBuiltinFormat("0.00"))
 
        ' [Cell2]
        ' RMB currency format with comma. eg: "¥20,000"
        SetValueAndFormat(workbook, cell2, 20000, format.GetFormat("¥#,##0"))
 
        ' [Cell3]
        ' Scentific number format. eg: "3.15E+00"
        SetValueAndFormat(workbook, cell3, 3.151234, format.GetFormat("0.00E+00"))
 
        ' [Cell4]
        ' Percent format, 2 digits after the decimal point. eg: "99.33%"
        SetValueAndFormat(workbook, cell4, 0.99333, format.GetFormat("0.00%"))
 
        ' [Cell5]
        ' Phone number format. eg: "021-65881234"
        SetValueAndFormat(workbook, cell5, 2165881234UI, format.GetFormat("000-00000000"))
 
        ' [Cell6]: 
        ' Formula value with datetime style.
        cell6.CellFormula = "DateValue(""2005-11-11"")+TIMEVALUE(""11:11:11"")"
        Dim cellStyle6 As ICellStyle = workbook.CreateCellStyle()
        cellStyle6.DataFormat = HSSFDataFormat.GetBuiltinFormat("m/d/yy h:mm")
        cell6.CellStyle = cellStyle6
 
        ' [Cell7]: 
        ' Display current time in AM/PM format.
        SetDate(workbook, cell7, DateTime.Now, format.GetFormat("[$-409]h:mm:ss AM/PM;@"))
 
        ' Save changes.
        Using sw As IO.FileStream = IO.File.Create(".\Formula Example.xlsx")
            workbook.Write(sw)
        End Using
 
    End Sub
 
    Private Shared Sub SetValueAndFormat(ByVal workbook As IWorkbook,
                                         ByVal cell As ICell,
                                         ByVal value As Double,
                                         ByVal formatId As Short)
 
        cell.SetCellValue(value)
        Dim cellStyle As ICellStyle = workbook.CreateCellStyle()
        cellStyle.DataFormat = formatId
        cell.CellStyle = cellStyle
 
    End Sub
 
    Private Shared Sub SetDate(ByVal workbook As IWorkbook,
                               ByVal cell As ICell,
                               ByVal value As DateTime,
                               ByVal formatId As Short)
 
        'set value for the cell
        If Not value = Nothing Then
            cell.SetCellValue(value)
        End If
 
        Dim cellStyle As ICellStyle = workbook.CreateCellStyle()
        cellStyle.DataFormat = formatId
        cell.CellStyle = cellStyle
 
    End Sub
 
#End Region

#Region " Hide row or column "
 
    ' Create the excel workbook.
    Dim workbook As IWorkbook = New XSSFWorkbook()
 
    ' Create a sheet.
    Dim sheet As ISheet = workbook.CreateSheet("Sheet1")
 
    ' Create some rows.
    Dim r1 As IRow = sheet.CreateRow(0)
    Dim r2 As IRow = sheet.CreateRow(1)
    Dim r3 As IRow = sheet.CreateRow(2)
    Dim r4 As IRow = sheet.CreateRow(3)
    Dim r5 As IRow = sheet.CreateRow(4)
 
    ' Hide IRow 2.
    r2.ZeroHeight = True
 
    ' Hide column C.
    sheet.SetColumnHidden(2, True)
 
    ' Save changes.
    Using sw As IO.FileStream = IO.File.Create(".\Hide Row or Column Example.xlsx")
        workbook.Write(sw)
    End Using
 
#End Region

        ' Create the excel workbook.
        Dim workbook As IWorkbook = New XSSFWorkbook()
 
        ' Create a sheet.
        Dim sheet As ISheet = workbook.CreateSheet("PictureSheet")
 
        ' Create the drawing patriarch. This is the top level container for all shapes including cell comments.
        Dim patriarch As IDrawing = sheet.CreateDrawingPatriarch()
 
        ' Create the anchor.
        Dim anchor As New XSSFClientAnchor(500, 200, 0, 0, 2, 2, 4, 7)
        anchor.AnchorType = 2
 
        ' Load the picture and get the picture index in the workbook.
        Dim imageId As Integer = LoadImage("C:\Users\Administrador\Desktop\4t0n.png", workbook)
        Dim picture As XSSFPicture = DirectCast(patriarch.CreatePicture(anchor, imageId), XSSFPicture)
 
        ' Reset the image to the original size.
        ' Note: Resize will reset client anchor you set.
        'picture.Resize();   
 
        ' Save changes.
        Using sw As IO.FileStream = IO.File.Create(".\Add Picture Example.xlsx")
            workbook.Write(sw)
        End Using
 
 
    Public Shared Function LoadImage(path As String, wb As IWorkbook) As Integer
        Dim file As New FileStream(path, FileMode.Open, FileAccess.Read)
        Dim buffer As Byte() = New Byte(file.Length - 1) {}
        file.Read(buffer, 0, CInt(file.Length))
        Return wb.AddPicture(buffer, PictureType.JPEG)
    End Function

        ' Create the excel workbook.
        Dim workbook As IWorkbook = New XSSFWorkbook()
 
        ' Create a sheet.
        Dim sheet As ISheet = workbook.CreateSheet("Sheet1")
 
        ' Create a cell.
        Dim cell As ICell = sheet.CreateRow(1).CreateCell(1)
        cell.SetCellValue(New XSSFRichTextString("This is a test of merging"))
 
        ' Merge B2 cell with C2 cell.
        sheet.AddMergedRegion(New CellRangeAddress(1, 1, 1, 2))
 
        ' Save changes.
        Using sw As IO.FileStream = IO.File.Create(".\Merge Cells Example.xlsx")
            workbook.Write(sw)
        End Using

        ' Create the excel workbook.
        Dim workbook As IWorkbook = New XSSFWorkbook()
 
        ' Create a sheet.
        Dim sheet As XSSFSheet = DirectCast(workbook.CreateSheet("Sheet A1"), XSSFSheet)
 
        With sheet ' Lock accessing excel operations.
            .LockFormatRows()
            .LockFormatCells()
            .LockFormatColumns()
            .LockDeleteColumns()
            .LockDeleteRows()
            .LockInsertHyperlinks()
            .LockInsertColumns()
            .LockInsertRows()
        End With
 
        ' Set the password to unprotect:
        Dim password As String = "Your Password"
        sheet.ProtectSheet(password)
 
        ' Save changes.
        Using sw As IO.FileStream = IO.File.Create(".\Protect Cells Example.xlsx")
            workbook.Write(sw)
        End Using

        ' The existing workbook filepath.
        Dim WorkBookFile As String = "C:\MyWorkBook.xlsx"
 
        ' Create the excel workbook instance.
        Dim workbook As IWorkbook = Nothing
 
        ' Load the workbook.
        Using file As New IO.FileStream(WorkBookFile, IO.FileMode.Open, IO.FileAccess.Read)
            workbook = New XSSFWorkbook(file)
        End Using
 
        ' Get the first sheet.
        Dim sheet As ISheet = workbook.GetSheetAt(0)
 
        ' Get the first row.
        Dim row As IRow = sheet.GetRow(0)
 
        ' Create a cell.
        Dim cell As ICell = row.CreateCell(1)
 
        ' Get the cell value.
        If String.IsNullOrEmpty(cell.StringCellValue) Then ' If value is emty then...
 
            ' Set cell value.
            cell.SetCellValue("This is a test")
 
        End If
 
        ' Save changes.
        Using sw As IO.FileStream = IO.File.Create(WorkBookFile)
            workbook.Write(sw)
        End Using

    ' Create Icon
    ' By Elektro
    '
    ' Usage Examples:
    '
    ' Dim IconFile As IconLib.SingleIcon = CreateIcon("C:\Image.ico", IconLib.IconOutputFormat.All)
    ' For Each IconLayer As IconLib.IconImage In IconFile
    '     PictureBox1.BackgroundImage = IconLayer.Icon.ToBitmap
    '     Debug.WriteLine(IconLayer.Icon.Size.ToString)
    '     Application.DoEvents()
    '     Threading.Thread.Sleep(750)
    ' Next IconLayer
    '
    ''' <summary>
    ''' Creates an icon with the specified image.
    ''' </summary>
    ''' <param name="imagefile">Indicates the image.</param>
    ''' <param name="format">Indicates the icon format.</param>
    ''' <returns>IconLib.SingleIcon.</returns>
    Public Function CreateIcon(ByVal imagefile As String,
                               Optional ByVal format As IconLib.IconOutputFormat =
                                                        IconLib.IconOutputFormat.All) As IconLib.SingleIcon
 
        Dim sIcon As IconLib.SingleIcon = New IconLib.MultiIcon().Add("Icon1")
        sIcon.CreateFrom(imagefile, format)
 
        Return sIcon
 
    End Function
 
    ' Get Icon-Layers
    ' By Elektro
    '
    ' Usage Examples:
    '
    ' For Each IconLayer As IconLib.IconImage In GetIconLayers("C:\Image.ico")
    '     PictureBox1.BackgroundImage = IconLayer.Icon.ToBitmap
    '     Debug.WriteLine(IconLayer.Icon.Size.ToString)
    '     Application.DoEvents()
    '     Threading.Thread.Sleep(750)
    ' Next IconLayer
    '
    ''' <summary>
    ''' Gets all the icon layers inside an icon file.
    ''' </summary>
    ''' <param name="iconfile">Indicates the icon file.</param>
    ''' <returns>IconLib.SingleIcon.</returns>
    Public Function GetIconLayers(ByVal iconfile As String) As IconLib.SingleIcon
 
        Dim mIcon As IconLib.MultiIcon = New IconLib.MultiIcon()
        mIcon.Load(iconfile)
 
        Return mIcon.First
 
    End Function
 

' ***********************************************************************
' Author           : Elektro
' Last Modified On : 08-20-2014
' ***********************************************************************
' <copyright file="ListView Column-Sorter.vb" company="Elektro Studios">
'     Copyright (c) Elektro Studios. All rights reserved.
' </copyright>
' ***********************************************************************
 
#Region " Usage Examples "
 
'Public Class ListViewColumnSorter_TestForm : Inherits form
'
'    ''' <summary>
'    ''' The listview to sort.
'    ''' </summary>
'    Private WithEvents LV As New ListView
'
'    ''' <summary>
'    ''' The 'ListViewColumnSorter' instance.
'    ''' </summary>
'    Private Sorter As New ListViewColumnSorter
'
'    ''' <summary>
'    ''' Initializes a new instance of the <see cref="ListViewColumnSorter_TestForm"/> class.
'    ''' </summary>
'    Public Sub New()
'
'        ' This call is required by the designer.
'        InitializeComponent()
'
'        With LV ' Set the Listview properties.
'
'            ' Set the sorter, our 'ListViewColumnSorter'.
'            .ListViewItemSorter = Sorter
'
'            ' The sorting default direction.
'            .Sorting = SortOrder.Ascending
'
'            ' Set the default sort-modifier.
'            Sorter.SortModifier = ListViewColumnSorter.SortModifiers.SortByText
'
'            ' Add some columns.
'            .Columns.Add("Text").Tag = ListViewColumnSorter.SortModifiers.SortByText
'            .Columns.Add("Numbers").Tag = ListViewColumnSorter.SortModifiers.SortByNumber
'            .Columns.Add("Dates").Tag = ListViewColumnSorter.SortModifiers.SortByDate
'
'            ' Adjust the column sizes.
'            For Each col As ColumnHeader In LV.Columns
'                col.Width = 100I
'            Next
'
'            ' Add some items.
'            .Items.Add("hello").SubItems.AddRange({"1", "11/11/2000"})
'            .Items.Add("yeehaa!").SubItems.AddRange({"2", "11-11-2000"})
'            .Items.Add("El3ktr0").SubItems.AddRange({"10", "9/9/1999"})
'            .Items.Add("wow").SubItems.AddRange({"100", "21/08/2014"})
'
'            ' Visual-Style things.
'            .Dock = DockStyle.Fill
'            .View = View.Details
'            .FullRowSelect = True
'
'        End With
'
'        With Me ' Set the Form properties.
'
'            .Size = New Size(400, 200)
'            .FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
'            .MaximizeBox = False
'            .StartPosition = FormStartPosition.CenterScreen
'            .Text = "ListViewColumnSorter TestForm"
'
'        End With
'
'        ' Add the Listview to UI.
'        Me.Controls.Add(LV)
'
'    End Sub
'
'    ''' <summary>
'    ''' Handles the 'ColumnClick' event of the 'ListView1' control.
'    ''' </summary>
'    Private Sub ListView1_ColumnClick(ByVal sender As Object, ByVal e As ColumnClickEventArgs) _
'    Handles LV.ColumnClick
'
'        ' Dinamycaly sets the sort-modifier to sort the column by text, number, or date.
'        Sorter.SortModifier = sender.columns(e.Column).tag
'
'        ' Determine whether clicked column is already the column that is being sorted.
'        If e.Column = Sorter.Column Then
'
'            ' Reverse the current sort direction for this column.
'            If Sorter.Order = SortOrder.Ascending Then
'                Sorter.Order = SortOrder.Descending
'
'            Else
'                Sorter.Order = SortOrder.Ascending
'
'            End If ' Sorter.Order
'
'        Else
'
'            ' Set the column number that is to be sorted, default to ascending.
'            Sorter.Column = e.Column
'            Sorter.Order = SortOrder.Ascending
'
'        End If ' e.Column
'
'        ' Perform the sort with these new sort options.
'        sender.Sort()
'
'    End Sub
'
'End Class
 
#End Region
 
#Region " Imports "
 
Imports System.Text.RegularExpressions
Imports System.ComponentModel
 
#End Region
 
#Region " ListView Column-Sorter "
 
''' <summary>
''' Performs a sorting comparison.
''' </summary>
Public Class ListViewColumnSorter : Implements IComparer
 
#Region " Objects "
 
    '''' <summary>
    '''' Indicates the comparer instance.
    '''' </summary>
    Private Comparer As Object = New TextComparer
 
#End Region
 
#Region " Properties "
 
    ''' <summary>
    ''' Gets or sets the number of the column to which to apply the sorting operation (Defaults to '0').
    ''' </summary>
    Public Property Column As Integer
        Get
            Return Me._Column
        End Get
        Set(ByVal value As Integer)
            Me._Column = value
        End Set
    End Property
    Private _Column As Integer = 0I
 
    ''' <summary>
    ''' Gets or sets the order of sorting to apply.
    ''' </summary>
    Public Property Order As SortOrder
        Get
            Return Me._Order
        End Get
        Set(ByVal value As SortOrder)
            Me._Order = value
        End Set
    End Property
    Private _Order As SortOrder = SortOrder.None
 
    ''' <summary>
    ''' Gets or sets the sort modifier.
    ''' </summary>
    ''' <value>The sort modifier.</value>
    Public Property SortModifier As SortModifiers
        Get
            Return Me._SortModifier
        End Get
        Set(ByVal value As SortModifiers)
            Me._SortModifier = value
        End Set
    End Property
    Private _SortModifier As SortModifiers = SortModifiers.SortByText
 
#End Region
 
#Region " Enumerations "
 
    ''' <summary>
    ''' Specifies a comparison result.
    ''' </summary>
    Public Enum ComparerResult As Integer
 
        ''' <summary>
        ''' 'X' is equals to 'Y'.
        ''' </summary>
        Equals = 0I
 
        ''' <summary>
        ''' 'X' is less than 'Y'.
        ''' </summary>
        Less = -1I
 
        ''' <summary>
        ''' 'X' is greater than 'Y'.
        ''' </summary>
        Greater = 1I
 
    End Enum
 
    ''' <summary>
    ''' Indicates a Sorting Modifier.
    ''' </summary>
    Public Enum SortModifiers As Integer
 
        ''' <summary>
        ''' Treats the values &#8203;&#8203;as text.
        ''' </summary>
        SortByText = 0I
 
        ''' <summary>
        ''' Treats the values &#8203;&#8203;as numbers.
        ''' </summary>
        SortByNumber = 1I
 
        ''' <summary>
        ''' Treats valuesthe values &#8203;&#8203;as dates.
        ''' </summary>
        SortByDate = 2I
 
    End Enum
 
#End Region
 
#Region " Private Methods "
 
    ''' <summary>
    ''' Compares two objects and returns a value indicating whether one is less than, equal to, or greater than the other.
    ''' </summary>
    ''' <param name="x">The first object to compare.</param>
    ''' <param name="y">The second object to compare.</param>
    ''' <returns>
    ''' A signed integer that indicates the relative values of <paramref name="x"/> and <paramref name="y"/>, 
    ''' 0: <paramref name="x"/> equals <paramref name="y"/>. 
    ''' Less than 0: <paramref name="x"/> is less than <paramref name="y"/>. 
    ''' Greater than 0: <paramref name="x"/> is greater than <paramref name="y"/>.
    ''' </returns>
    Private Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
 
        Dim CompareResult As ComparerResult = ComparerResult.Equals
        Dim LVItemX, LVItemY As ListViewItem
 
        ' Cast the objects to be compared
        LVItemX = DirectCast(x, ListViewItem)
        LVItemY = DirectCast(y, ListViewItem)
 
        Dim strX As String = If(Not LVItemX.SubItems.Count <= Me._Column,
                               LVItemX.SubItems(Me._Column).Text,
                               Nothing)
 
        Dim strY As String = If(Not LVItemY.SubItems.Count <= Me._Column,
                                LVItemY.SubItems(Me._Column).Text,
                                Nothing)
 
        Dim listViewMain As ListView = LVItemX.ListView
 
        ' Calculate correct return value based on object comparison
        If listViewMain.Sorting <> SortOrder.Ascending AndAlso listViewMain.Sorting <> SortOrder.Descending Then
 
            ' Return '0' to indicate they are equal
            Return ComparerResult.Equals
 
        End If
 
        If Me._SortModifier.Equals(SortModifiers.SortByText) Then
 
            ' Compare the two items
            If LVItemX.SubItems.Count <= Me._Column AndAlso LVItemY.SubItems.Count <= Me._Column Then
                CompareResult = Me.Comparer.Compare(Nothing, Nothing)
 
            ElseIf LVItemX.SubItems.Count <= Me._Column AndAlso LVItemY.SubItems.Count > Me._Column Then
                CompareResult = Me.Comparer.Compare(Nothing, strY)
 
            ElseIf LVItemX.SubItems.Count > Me._Column AndAlso LVItemY.SubItems.Count <= Me._Column Then
                CompareResult = Me.Comparer.Compare(strX, Nothing)
 
            Else
                CompareResult = Me.Comparer.Compare(strX, strY)
 
            End If
 
        Else ' Me._SortModifier IsNot 'SortByText'
 
            Select Case Me._SortModifier
 
                Case SortModifiers.SortByNumber
                    If Me.Comparer.GetType <> GetType(NumericComparer) Then
                        Me.Comparer = New NumericComparer
                    End If
 
                Case SortModifiers.SortByDate
                    If Me.Comparer.GetType <> GetType(DateComparer) Then
                        Me.Comparer = New DateComparer
                    End If
 
                Case Else
                    If Me.Comparer.GetType <> GetType(TextComparer) Then
                        Me.Comparer = New TextComparer
                    End If
 
            End Select
 
            CompareResult = Comparer.Compare(strX, strY)
 
        End If ' Me._SortModifier.Equals(...)
 
        ' Calculate correct return value based on object comparison
        If Me._Order = SortOrder.Ascending Then
            ' Ascending sort is selected, return normal result of compare operation
            Return CompareResult
 
        ElseIf Me._Order = SortOrder.Descending Then
            ' Descending sort is selected, return negative result of compare operation
            Return (-CompareResult)
 
        Else
            ' Return '0' to indicate they are equal
            Return 0I
 
        End If ' Me._Order = ...
 
    End Function
 
#End Region
 
#Region " Hidden Methods "
 
    ''' <summary>
    ''' Serves as a hash function for a particular type.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Public Shadows Sub GetHashCode()
    End Sub
 
    ''' <summary>
    ''' Determines whether the specified System.Object instances are considered equal.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Public Shadows Sub Equals()
    End Sub
 
    ''' <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]()
        Return Me.GetType
    End Function
 
    ''' <summary>
    ''' Returns a String that represents the current object.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Public Shadows Sub ToString()
    End Sub
 
#End Region
 
End Class
 
#End Region
 
#Region " Comparers "
 
#Region " Text "
 
''' <summary>
''' Performs a text comparison.
''' </summary>
Public Class TextComparer : Inherits CaseInsensitiveComparer
 
#Region " Enumerations "
 
    ''' <summary>
    ''' Specifies a comparison result.
    ''' </summary>
    Public Enum ComparerResult As Integer
 
        ''' <summary>
        ''' 'X' is equals to 'Y'.
        ''' </summary>
        Equals = 0I
 
        ''' <summary>
        ''' 'X' is less than 'Y'.
        ''' </summary>
        Less = -1I
 
        ''' <summary>
        ''' 'X' is greater than 'Y'.
        ''' </summary>
        Greater = 1I
 
    End Enum
 
#End Region
 
#Region " Methods "
 
    ''' <summary>
    ''' Compares two objects and returns a value indicating whether one is less than, equal to, or greater than the other.
    ''' </summary>
    ''' <param name="x">The first object to compare.</param>
    ''' <param name="y">The second object to compare.</param>
    ''' <returns>
    ''' A signed integer that indicates the relative values of <paramref name="x"/> and <paramref name="y"/>, 
    ''' 0: <paramref name="x"/> equals <paramref name="y"/>. 
    ''' Less than 0: <paramref name="x"/> is less than <paramref name="y"/>. 
    ''' Greater than 0: <paramref name="x"/> is greater than <paramref name="y"/>.
    ''' </returns>
    Friend Shadows Function Compare(ByVal x As Object, ByVal y As Object) As Integer
 
        ' Null parsing.
        If x Is Nothing AndAlso y Is Nothing Then
            Return ComparerResult.Equals ' X is equals to Y.
 
        ElseIf x Is Nothing AndAlso y IsNot Nothing Then
            Return ComparerResult.Less ' X is less than Y.
 
        ElseIf x IsNot Nothing AndAlso y Is Nothing Then
            Return ComparerResult.Greater ' X is greater than Y.
 
        End If
 
        ' String parsing:
        If (TypeOf x Is String) AndAlso (TypeOf y Is String) Then ' True and True
            Return [Enum].Parse(GetType(ComparerResult),
                                MyBase.Compare(x, y))
 
        ElseIf (TypeOf x Is String) AndAlso Not (TypeOf y Is String) Then ' True and False
            Return ComparerResult.Greater ' X is greater than Y.
 
        ElseIf Not (TypeOf x Is String) AndAlso (TypeOf y Is String) Then ' False and True
            Return ComparerResult.Less ' X is less than Y.
 
        Else ' False and False
            Return ComparerResult.Equals
 
        End If
 
    End Function
 
#End Region
 
End Class
 
#End Region
 
#Region " Numeric "
 
''' <summary>
''' Performs a numeric comparison.
''' </summary>
Public Class NumericComparer : Implements IComparer
 
#Region " Enumerations "
 
    ''' <summary>
    ''' Specifies a comparison result.
    ''' </summary>
    Public Enum ComparerResult As Integer
 
        ''' <summary>
        ''' 'X' is equals to 'Y'.
        ''' </summary>
        Equals = 0I
 
        ''' <summary>
        ''' 'X' is less than 'Y'.
        ''' </summary>
        Less = -1I
 
        ''' <summary>
        ''' 'X' is greater than 'Y'.
        ''' </summary>
        Greater = 1I
 
    End Enum
 
#End Region
 
#Region " Methods "
 
    ''' <summary>
    ''' Compares two objects and returns a value indicating whether one is less than, equal to, or greater than the other.
    ''' </summary>
    ''' <param name="x">The first object to compare.</param>
    ''' <param name="y">The second object to compare.</param>
    ''' <returns>
    ''' A signed integer that indicates the relative values of <paramref name="x"/> and <paramref name="y"/>, 
    ''' 0: <paramref name="x"/> equals <paramref name="y"/>. 
    ''' Less than 0: <paramref name="x" /> is less than <paramref name="y"/>. 
    ''' Greater than 0: <paramref name="x"/> is greater than <paramref name="y"/>.
    ''' </returns>
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
    Implements IComparer.Compare
 
        ' Null parsing.
        If x Is Nothing AndAlso y Is Nothing Then
            Return ComparerResult.Equals ' X is equals to Y.
 
        ElseIf x Is Nothing AndAlso y IsNot Nothing Then
            Return ComparerResult.Less ' X is less than Y.
 
        ElseIf x IsNot Nothing AndAlso y Is Nothing Then
            Return ComparerResult.Greater ' X is greater than Y.
 
        End If
 
        ' The single variables to parse the text.
        Dim SingleX, SingleY As Single
 
        ' Single parsing:
        If Single.TryParse(x, SingleX) AndAlso Single.TryParse(y, SingleY) Then ' True and True
            Return [Enum].Parse(GetType(ComparerResult),
                                SingleX.CompareTo(SingleY))
 
        ElseIf Single.TryParse(x, SingleX) AndAlso Not Single.TryParse(y, SingleY) Then ' True and False
            Return ComparerResult.Greater ' X is greater than Y.
 
        ElseIf Not Single.TryParse(x, SingleX) AndAlso Single.TryParse(y, SingleY) Then ' False and True
            Return ComparerResult.Less ' X is less than Y.
 
        Else ' False and False
            Return [Enum].Parse(GetType(ComparerResult),
                                x.ToString.CompareTo(y.ToString))
 
        End If
 
    End Function
 
#End Region
 
End Class
 
#End Region
 
#Region " Date "
 
''' <summary>
''' Performs a date comparison.
''' </summary>
Public Class DateComparer : Implements IComparer
 
#Region " Enumerations "
 
    ''' <summary>
    ''' Specifies a comparison result.
    ''' </summary>
    Public Enum ComparerResult As Integer
 
        ''' <summary>
        ''' 'X' is equals to 'Y'.
        ''' </summary>
        Equals = 0I
 
        ''' <summary>
        ''' 'X' is less than 'Y'.
        ''' </summary>
        Less = -1I
 
        ''' <summary>
        ''' 'X' is greater than 'Y'.
        ''' </summary>
        Greater = 1I
 
    End Enum
 
#End Region
 
#Region " Methods "
 
    ''' <summary>
    ''' Compares two objects and returns a value indicating whether one is less than, equal to, or greater than the other.
    ''' </summary>
    ''' <param name="x">The first object to compare.</param>
    ''' <param name="y">The second object to compare.</param>
    ''' <returns>
    ''' A signed integer that indicates the relative values of <paramref name="x"/> and <paramref name="y"/>, 
    ''' 0: <paramref name="x"/> equals <paramref name="y"/>. 
    ''' Less than 0: <paramref name="x"/> is less than <paramref name="y"/>. 
    ''' Greater than 0: <paramref name="x"/> is greater than <paramref name="y"/>.
    ''' </returns>
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
 
        ' Null parsing.
        If x Is Nothing AndAlso y Is Nothing Then
            Return ComparerResult.Equals ' X is equals to Y.
 
        ElseIf x Is Nothing AndAlso y IsNot Nothing Then
            Return ComparerResult.Less ' X is less than Y.
 
        ElseIf x IsNot Nothing AndAlso y Is Nothing Then
            Return ComparerResult.Greater ' X is greater than Y.
 
        End If
 
        ' The Date variables to parse the text.
        Dim DateX, DateY As Date
 
        ' Date parsing:
        If Date.TryParse(x, DateX) AndAlso Date.TryParse(y, DateY) Then ' True and True
            Return [Enum].Parse(GetType(ComparerResult),
                                DateX.CompareTo(DateY))
 
        ElseIf Date.TryParse(x, DateX) AndAlso Not Date.TryParse(y, DateY) Then ' True and False
            Return ComparerResult.Greater ' X is greater than Y.
 
        ElseIf Not Date.TryParse(x, DateX) AndAlso Date.TryParse(y, DateY) Then ' False and True
            Return ComparerResult.Less ' X is less than Y.
 
        Else ' False and False
            Return [Enum].Parse(GetType(ComparerResult),
                                x.ToString.CompareTo(y.ToString))
 
        End If
 
    End Function
 
#End Region
 
End Class
 
#End Region
 
#End Region

For Num As Integer = IndexCounter To (FixedValues.Count) Step NumStep ' 1 to 30 Step 3
 
               Combo.Add(Num)
               ...

Combo.Add(FixedValues(Num - 1))

{ 1, , , 22, , , 66, , , 20, }