Mathemathics Framework

Imports System

Public Class ItemGroupComparer
    Implements System.Collections.IComparer

    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
        If TypeOf x Is ItemGroup And TypeOf y Is ItemGroup Then
            If CType(x, ItemGroup).Name < CType(y, ItemGroup).Name Then
                Return +1
            ElseIf CType(x, ItemGroup).Name = CType(y, ItemGroup).Name Then
                Return 0
            Else
                Return -1
            End If
        Else
            Return -1
        End If
    End Function

End Class