ElseIf (typ = "Label") Then
                    Dim Label() As Label
                    ReDim Preserve Label(id)
                    Label(id) = New System.Windows.Forms.Label
                    Label(id).Name = name '// Name setzen
                    Label(id).Size = New Size(width, height)
                    Label(id).Location = (New Point(x, y))
                    Label(id).Text = inhalt
                    Label(id).Visible = visible
 
                    Me.Controls.Add(Label(id))
 
                ElseIf (typ = "Checkbox") Then
                    Dim Checkbox() As CheckBox
                    ReDim Preserve Checkbox(id)
                    Checkbox(id) = New System.Windows.Forms.CheckBox
                    Checkbox(id).Name = name '// Name setzen
                    Checkbox(id).Size = New Size(width, height)
                    Checkbox(id).Location = (New Point(x, y))
                    Checkbox(id).Text = inhalt
                    Checkbox(id).TabIndex = reihenfolge
                    Checkbox(id).Visible = visible
                    Me.Controls.Add(Checkbox(id))
                End If
 
            Next
        Catch ex As System.Exception
            MsgBox(ex.ToString)
        End Try

Dim Textbox() As TextBox
                    ReDim Preserve Textbox(id)
                    Textbox(id) = New System.Windows.Forms.TextBox
                    Textbox(id).Name = name '// Name setzen
                    Textbox(id).Size = New Size(width, height)
                    Textbox(id).Location = (New Point(x, y))
                    Textbox(id).Text = inhalt
                    Textbox(id).TabIndex = reihenfolge
                    Textbox(id).MaxLength = length
                    Textbox(id).Visible = visible
                    Me.Controls.Add(Textbox(id))