Imports System.ComponentModel
Imports System.Drawing.Design
 
Public Class Form1
 
    Private iItems As New cup_uc.cls_CUPItemCollection
 
    <Editor(GetType(cup_uc.cls_CUPItemCollectionEditor), GetType( _
      UITypeEditor)), _
    DefaultValue(GetType(cup_uc.cls_CUPItemCollection), Nothing), _
    Category("CUP"), Description(""), Browsable(True), Bindable(False)> _
    Public Property cupItems() As cup_uc.cls_CUPItemCollection
        Get
            Return iItems
        End Get
        Set(ByVal Value As cup_uc.cls_CUPItemCollection)
            iItems = Value
        End Set
    End Property
 
End Class

<Serializable()> _
Public Class cls_CUPItemCollection
 
    Public CUPItemsCollection As Collection
 
    Public Sub New()
    End Sub
 
    Public Sub New(ByVal CUP_ItemsCollection As Collection)
        CUPItemsCollection = CUP_ItemsCollection
    End Sub
 
    Public Overrides Function ToString() As String
        Dim currentObject As cup_uc.cls_CUPItem  'Object
        Dim ReturnString As String = ""
        Dim Counter As Integer = 0
        Try
            For Each currentObject In CUPItemsCollection
                Counter = Counter + 1
            Next
 
            If Counter = 1 Then
                ReturnString = Counter.ToString & " CUP Item "
            Else
                ReturnString = Counter.ToString & " CUP Items "
            End If
        Catch ex As Exception
            ' Debug.WriteLine(ex.Message)
        End Try
 
        Return ReturnString
    End Function
 
End Class

Imports System.ComponentModel
Imports System.Drawing.Design
 
<Serializable()> _
Public Class cls_CUPItem
 
    Private CUPItem_ID As Integer
 
    Public Sub New()
    End Sub
 
    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub
 
    <Category("CUP"), Description(""), Browsable(True), Bindable(False)> _
    Public Property CUPItemID() As Integer
        Get
            Return CUPItem_ID
        End Get
        Set(ByVal value As Integer)
            CUPItem_ID = value
        End Set
    End Property
 
End Class