Public Class CView2007
    Public Enum CitObjTyp
        tText = 0
        tRTextBox = 1
        tImage = 2
    End Enum
    Dim aktObj As Long
    '[...]
    Private Sub CommunitiesUC_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        '[...]
    End Sub
    Public Sub AddObjekt(ByVal ObjektName As String, ByVal ObjektValue As _
      String, ByVal ObjektTyp As CitObjTyp, ByVal ObjecktX As Long, ByVal _
      objecktY As Long, ByVal Höhe As Long, ByVal Breite As Long)
 
        If ObjektTyp = CitObjTyp.tText Then
            Dim obj(aktObj + 1) As Label
            obj(aktObj + 1) = New Label
            obj(aktObj + 1).Name = ObjektName
            obj(aktObj + 1).Top = objecktY
            obj(aktObj + 1).Left = ObjecktX
            obj(aktObj + 1).Height = Höhe
            obj(aktObj + 1).Width = Breite
            obj(aktObj + 1).Text = ObjektValue
            obj(aktObj + 1).Visible = True
            obj(aktObj + 1).ForeColor = Color.Black
 
        ElseIf ObjektTyp = CitObjTyp.tImage Then
            '[...]
        ElseIf ObjektTyp = CitObjTyp.tRTextBox Then
            '[...]
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        AddObjekt("Label1", "Hallo", CitObjTyp.tText, 100, 100, 1000, 1000)
    End Sub
    '[...]
End Class