必须为接口 System.Collections.IComparer 实现

C# codes:

public class DateComparer : IComparer
{
    public int Compare(object x, object y)
    {
        if ((x as RadDate).Date < (y as RadDate).Date)
        {
            return -1;
        }
        else if ((x as RadDate).Date > (y as RadDate).Date)
        {
            return 1;
        }
        else
        {
            return 0;
        }
    }
}

Converted to VB codes:

Public Class DateComparer
       Implements IComparer
       Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
           If (TryCast(x, Telerik.Web.UI.RadDate)).Date < (TryCast(y, Telerik.Web.UI.RadDate)).Date Then
               Return -1
           ElseIf (TryCast(x, Telerik.Web.UI.RadDate)).Date > (TryCast(y, Telerik.Web.UI.RadDate)).Date Then
               Return 1
           Else
               Return 0
           End If
       End Function
   End Class