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