VB Code:
Private Sub SortCollection(ByRef collectionname As EntryCollection)
For i As Integer = 1 To collectionname.Count
For j As Integer = 2 To collectionname.Count
If CType(collectionname(j), Entry).Filesize >= CType(collectionname(j - 1), Entry).Filesize Then
collectionname.Swap(j, j - 1)
End If
Next
Next
End Sub
VB Code:
Public Sub Swap(ByVal FirstMember As Integer, ByVal SecondMember As Integer)
Dim temp As Object = List(FirstMember - 1)
List(FirstMember - 1) = List(SecondMember - 1)
List(SecondMember - 1) = temp
End Sub