Listview sorting *Resolved*

[manavo11]

I found some code from kleinma (I think) for sorting a listview... Here is part of the code :

Private Sub lvDisks_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    Call ClearHeaderIcons(ColumnHeader.Index)
    Select Case ColumnHeader.Index
        Case 2, 3, 5, 6, 7, 9, 10, 11, 12, 13
            Select Case ColumnHeader.Icon
                Case "down"
                    ColumnHeader.Icon = "up"
                    Call SortColumn(lvDisks, ColumnHeader.Index, sortDescending, sortString)
                Case "up"
                    ColumnHeader.Icon = "down"
                    Call SortColumn(lvDisks, ColumnHeader.Index, sortAscending, sortString)
                Case Else
                    ColumnHeader.Icon = "down"
                    Call SortColumn(lvDisks, ColumnHeader.Index, sortAscending, sortString)
            End Select
        Case 1, 4, 8
            Select Case ColumnHeader.Icon
                Case "down"
                    ColumnHeader.Icon = "up"
                    Call SortColumn(lvDisks, ColumnHeader.Index, sortDescending, sortNumber)
                Case "up"
                    ColumnHeader.Icon = "down"
                    Call SortColumn(lvDisks, ColumnHeader.Index, sortAscending, sortNumber)
                Case Else
                    ColumnHeader.Icon = "down"
                    Call SortColumn(lvDisks, ColumnHeader.Index, sortAscending, sortNumber)
            End Select
    End Select
    
    Set SortIndex = ColumnHeader
End Sub

This works just fine, but that is when the user clicks on a column. How would I sort on form_load though? I tried calling the sub, but I couldn't get it to work. Any ideas?