vb.net sort listview followed by coloring alternate rows not working

Question

I can get my listview to alternate colored rows or sort but not both. The sorting does not appear to be complete before the alternate rows are colored leading to the row's coloring being jumbled up, but sorted in the listview. How can I make sure the listviewItemSorter is done before calling my function SetAlternateColors?

    lvGedcom.ListViewItemSorter = New ListViewComparer(0, SortOrder.Ascending)
    lvGedcom.Sort()
    InfraT.SetAlternateColor(lvGedcom)

I tried a sleep after the sort to no avail...

    Public Shared Sub SetAlternateColor(sender As Object)
    'Set color striping on listview
    For i As Integer = 0 To sender.Items.Count - 1 Step 2
        sender.Items(i).BackColor = Color.LightGoldenrodYellow
        If i < sender.items.Count - 1 Then
            sender.Items(i + 1).BackColor = SystemColors.Window
        End If
    Next
End Sub

Custom sorter from: http://www.vb-helper.com/howto_net_listview_sort_clicked_column.html

Class ListViewComparer
Implements IComparer

Private m_ColumnNumber As Integer
Private m_SortOrder As SortOrder

Public Sub New(ByVal column_number As Integer, ByVal _
    sort_order As SortOrder)
    m_ColumnNumber = column_number
    m_SortOrder = sort_order
End Sub

' Compare the items in the appropriate column
' for objects x and y.
Public Function Compare(ByVal x As Object, ByVal y As _
    Object) As Integer Implements _
    System.Collections.IComparer.Compare
    Dim item_x As ListViewItem = DirectCast(x,
        ListViewItem)
    Dim item_y As ListViewItem = DirectCast(y,
        ListViewItem)

    ' Get the sub-item values.
    Dim string_x As String
    If item_x.SubItems.Count <= m_ColumnNumber Then
        string_x = ""
    Else
        string_x = item_x.SubItems(m_ColumnNumber).Text
    End If

    Dim string_y As String
    If item_y.SubItems.Count <= m_ColumnNumber Then
        string_y = ""
    Else
        string_y = item_y.SubItems(m_ColumnNumber).Text
    End If

    ' Compare them.
    If m_SortOrder = SortOrder.Ascending Then
        If IsNumeric(string_x) And IsNumeric(string_y) _
            Then
            Return Val(string_x).CompareTo(Val(string_y))
        ElseIf IsDate(string_x) And IsDate(string_y) _
            Then
            Return DateTime.Parse(string_x).CompareTo(DateTime.Parse(string_y))
        Else
            Return String.Compare(string_x, string_y)
        End If
    Else
        If IsNumeric(string_x) And IsNumeric(string_y) _
            Then
            Return Val(string_y).CompareTo(Val(string_x))
        ElseIf IsDate(string_x) And IsDate(string_y) _
            Then
            Return DateTime.Parse(string_y).CompareTo(DateTime.Parse(string_x))
        Else
            Return String.Compare(string_y, string_x)
        End If
    End If
End Function
End Class

Any help would be great!

Answer 1

the calls to populate and sort the listview needed to come from a load event rather then from new and then it worked like a charm. Thanks to Jimi for the assist.