implements در vb.net چیست؟

[mahmadifar]

با سلام.
لطفا یک توضیحی در مورد این بدهید که زیر برنامه زیر چگونه با استفاده از دو کلاس تعریف شده ستون های یک لیست را به صورت صعودی مرتب می کند و سوال دیگه اینکه دستور implements چه کاری انجام می دهد؟

Private Sub listview1_columnclick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView1.ColumnClick
Select Case e.column
Case 0
ListView1.ListViewItemSorter = New listcompanysorter()
ListView1.Sorting = SortOrder.Ascending

Case 1
ListView1.ListViewItemSorter = New listcontactsorter()
ListView1.Sorting = SortOrder.Ascending
End Select
End Sub
--------------------------------------------------------------------------------------------------------
Class listcompanysorter
Implements IComparer
Public Function Compare(ByVal o1 As Object, ByVal o2 As Object) As Integer Implements System.Collections.IComparer.Compare
Dim item1, item2 As ListViewItem
item1 = CType(o1, ListViewItem)
item2 = CType(o2, ListViewItem)
If item1.ToString.ToUpper > item2.ToString.ToUpper Then
Return 1
Else
If item1.ToString.ToUpper < item2.ToString.ToUpper Then
Return -1
Else : Return 0
End If
End If
End Function
End Class
-------------------------------------------------------------------------------------------
Class listcontactsorter
Implements IComparer
Public Function Compare(ByVal o1 As Object, ByVal o2 As Object) As Integer Implements System.Collections.IComparer.Compare
Dim item1, item2 As ListViewItem
item1 = CType(o1, ListViewItem)
item2 = CType(o2, ListViewItem)
If item1.ToString.ToUpper > item2.ToString.ToUpper Then
Return 1
Else
If item1.ToString.ToUpper < item2.ToString.ToUpper Then
Return -1
Else : Return 0
End If
End If
End Function
End Class

End Class