Imports System.ComponentModel
Public Class UCTest
    Private mAnzahl As Integer
    <Category("AAA")>
    Public Property Anzahl() As Integer
        Get
            Return mAnzahl
        End Get
        Set(ByVal value As Integer)
            mAnzahl = value
            Me.Invalidate()
        End Set
    End Property
    'Private mBulis As Buli()
    <Category("AAA")>
    Public Property Bulis As Buli() '={}
    '    Get
    '        Return mBulis
    '    End Get
    '    Set(value As Buli())
    '        mBulis = value
    '    End Set
    'End Property
    Private Sub UCTest_Paint(sender As Object, e As PaintEventArgs) Handles _
      Me.Paint
        Try
            e.Graphics.DrawString("Anzahl        : " & Anzahl.ToString, _
              Me.Font, Brushes.Black, 10, 10)
            e.Graphics.DrawString("Anzahl Bulis : " & Bulis.Length, Me.Font, _
            Brushes.Black, 10, 30)
 
            Dim i As Integer = 1
            For Each x As Buli In Bulis
                e.Graphics.DrawString("(" & i.ToString & ") Buli : " & _
                  x.ToString, Me.Font, Brushes.Black, 10, 30 + 20 * i)
                i += 1
            Next
 
        Catch ex As Exception
        End Try
    End Sub
End Class
'<Serializable()>
Public Class Buli
    Public Sub New()
        Name = "Buli"
        X = 12
        Y = 22
    End Sub
    Public Overrides Function ToString() As String
        Return _Name & "; " & _X.ToString & "; " & _Y.ToString
    End Function
    Public Property Name As String
    Public Property X As Single
    Public Property Y As Single
End Class