Public Class c1
        Dim _s As String
        Dim _i As Integer
        Dim _c2list As c2Items
 
        Public Sub New(ByVal s As String, ByVal i As Integer, ByVal c2list As _
          c2Items)
            _s = s
            _i = i
            _c2list = c2list
        End Sub
 
        Public Property c1s() As String
            Get
                Return _s
            End Get
            Set(ByVal Value As String)
                _s = Value
            End Set
        End Property
 
        Public Property c1i() As Integer
            Get
                Return _i
            End Get
            Set(ByVal Value As Integer)
                _i = Value
            End Set
 
        End Property
 
        Public Property c2list() As c2Items
            Get
                Return _c2list
            End Get
            Set(ByVal Value As c2Items)
                _c2list = Value
            End Set
        End Property
 
        Public Overrides Function ToString() As String
            Return _s
        End Function
    End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist