Dim id
        Dim x
        Dim y
        Dim i
        Dim name
        Dim height
        Dim width
        Dim length
        Dim typ
        Dim text
        Dim tab
        Dim nummeric
        Dim visible
        Dim used
 
        Dim da As New SqlDataAdapter("SELECT * FROM kdstm_def", conn)
        Dim ds As New DataSet
        Try
            da.Fill(ds, 0)
            Dim anzahl = ds.Tables(0).Rows.Count() - 1
 
            For i = 0 To anzahl Step 1
                id = ds.Tables(0).Rows(i).Item("id").ToString
                x = ds.Tables(0).Rows(i).Item("x").ToString
                y = ds.Tables(0).Rows(i).Item("y").ToString
                height = ds.Tables(0).Rows(i).Item("height").ToString
                width = ds.Tables(0).Rows(i).Item("width").ToString
                name = ds.Tables(0).Rows(i).Item("name").ToString
                text = ds.Tables(0).Rows(i).Item("text").ToString
                typ = ds.Tables(0).Rows(i).Item("typ").ToString
                length = ds.Tables(0).Rows(i).Item("length").ToString
                tab = ds.Tables(0).Rows(i).Item("tab").ToString
                nummeric = ds.Tables(0).Rows(i).Item("nummeric").ToString
                visible = ds.Tables(0).Rows(i).Item("visible").ToString
                used = ds.Tables(0).Rows(i).Item("used").ToString
 
                If (typ = "Textbox") Then
                    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 = text
                    Textbox(id).TabIndex = tab
                    Textbox(id).MaxLength = length
                    Textbox(id).Visible = visible
                    Me.Controls.Add(Textbox(id))
 
                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 = text
                    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 = text
                    Checkbox(id).TabIndex = tab
                    Checkbox(id).Visible = visible
                    Me.Controls.Add(Checkbox(id))
                End If
 
            Next
        Catch ex As System.Exception
            MsgBox(ex.ToString)
        End Try