Imports System.ComponentModel
Imports System.Drawing.Design
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Runtime.Serialization
 
Namespace CU.Berechtigung
 
    <Serializable()> _
    Public Class cls_CUPItemCollection
 
#Region "Deklaration"
        Private m_List As New List(Of CU.Berechtigung.cls_CUPItem)
#End Region
 
        Public Property List() As List(Of CU.Berechtigung.cls_CUPItem)
            Get
                Return m_List
            End Get
            Set(ByVal value1 As List(Of CU.Berechtigung.cls_CUPItem))
                m_List = value1
            End Set
        End Property
 
#Region "Konstruktor / Destruktor"
        Public Sub New()
        End Sub
 
        Public Sub New(ByVal CUP_ItemsCollection As List(Of _
          CU.Berechtigung.cls_CUPItem))
            m_List = CUP_ItemsCollection
        End Sub
 
        Protected Overrides Sub Finalize()
            MyBase.Finalize()
        End Sub
#End Region
 
#Region "Funktionen"
        Public Overrides Function ToString() As String
            Dim ReturnString As String = ""
            Dim Counter As Integer = 0
            Try
                If m_List.Count = 1 Then
                    ReturnString = m_List.Count.ToString & " CUP Item "
                Else
                    ReturnString = m_List.Count.ToString & " CUP Items "
                End If
            Catch ex As Exception
            End Try
 
            Return ReturnString
        End Function
#End Region
    End Class
End Namespace