
Public Function ItemDescription() As String := "item"


Public Function CountText() As String := _
Count & " " & ItemDescription & IIf(Count = 1, "", "s")


Public Function Description() As String := CountText


Public Function GetMaxKey() As Long Begin
    Dim anItem As $__ITEMCLASS$, lngMaxKey As Long

    lngMaxKey = 0

    For Each anItem In mcolItems
        if anItem.Key > lngMaxKey Then
            lngMaxKey = anItem.Key
        End If
    Next

    GetMaxKey = lngMaxKey
End Function