Public Function Compare(ByVal x As Object, ByVal y As Object) As _
          Integer Implements System.Collections.IComparer.Compare
 
            Dim arg1 As T = ctype(tc.ConvertFromString(x.ToString),T)
            Dim arg2 As T = ctype(tc.ConvertFromString(y.ToString),T)
 
            If lvi1.ListView.Sorting = SortOrder.Ascending Then
                Return arg1.CompareTo(arg2)
            Else
                Return -arg1.CompareTo(arg2)
            End If
        End Function