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
 
    '<Category("AAA"), Browsable(True), EditorBrowsable( 
    ' EditorBrowsableState.Always),
    'DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)>
    <Category("AAA"),
     Browsable(True),
     DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
    Public Property Bulis As Buli()
 
    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