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
                reihe = ds.Tables(0).Rows(i).Item("reihe").ToString
                spalte = ds.Tables(0).Rows(i).Item("spalte").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
                beschriftung = ds.Tables(0).Rows(i).Item( _
                  "beschriftung").ToString
                typ = ds.Tables(0).Rows(i).Item("typ").ToString
                length = ds.Tables(0).Rows(i).Item("length").ToString
                reihenfolge = ds.Tables(0).Rows(i).Item("reihenfolge").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("system").ToString
                tab = ds.Tables(0).Rows(i).Item("tab").ToString
 
                If (spalte = 1) Then
                    x = 120
                ElseIf (spalte = 2) Then
                    x = 420
                ElseIf (spalte = 3) Then
                    x = 724
                Else
                    MsgBox("Die Position Ihres Objektes existiert nicht.")
                    Exit Sub
                End If
 
                If (reihe = 1) Then
                    y = 64
                ElseIf (reihe = 2) Then
                    y = 88
                ElseIf (reihe = 3) Then
                    y = 112
                ElseIf (reihe = 4) Then
                    y = 136
                ElseIf (reihe = 5) Then
                    y = 160
                ElseIf (reihe = 6) Then
                    y = 184
                ElseIf (reihe = 7) Then
                    y = 208
                ElseIf (reihe = 8) Then
                    y = 232
                ElseIf (reihe = 9) Then
                    y = 256
                ElseIf (reihe = 10) Then
                    y = 280
                Else
                    MsgBox("Die Position Ihres Objektes existiert nicht.")
                    Exit Sub
                End If
 
                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 = inhalt
                    Textbox(id).TabIndex = reihenfolge
                    Textbox(id).MaxLength = length
                    Textbox(id).Visible = visible
                    Me.Controls.Add(Textbox(id))
                    Dim labelname = "label" & id
                    Dim Label() As Label
                    ReDim Preserve Label(id)
                    Label(id) = New System.Windows.Forms.Label
                    Label(id).Name = labelname '// Name setzen
                    Label(id).Size = New Size(width, height)
                    Label(id).Location = (New Point(x - 80, y + 2))
 
                    Label(id).Text = beschriftung & ":"
                    'Label(id).TextAlign = 
                    ' System.Drawing.ContentAlignment.MiddleRight
                    Label(id).Visible = visible
 
                    Me.Controls.Add(Label(id))