Private Sub frmFormularDatenSpeichern_Load(ByVal sender As System.Object, _
                                ByVal e As System.EventArgs) Handles MyBase.Load
 
            If IO.File.Exists(FormularFile) Then
                'Dataset: gespeicherte Daten aus Datei laden
                Formulardaten = New DataSet
                Formulardaten.ReadXml(FormularFile)
            Else
                'Dataset neu erstellen
                Formulardaten = CreateDataset()
            End If
 
            CreateControls()
 
            CreateBindings()
 
            Me.Height = btnLaden.Top + btnLaden.Height + 40
            Me.Width = 310
        End Sub

        Private Sub CreateControls()
 
            With Formulardaten.Tables(Formulartexte)
                'Labels und Textboxen erstellen 
                For i As Integer = 0 To .Columns.Count - 3
                    Dim lbl As New Label With {.Parent = Me, .Top = 30 * i}
                    lbl.Text = .Columns(i).ColumnName
                    Dim tbo As New TextBox With _
                        {.Parent = Me, .Tag = i.ToString, _
                         .Left = 200, .Width = 100, .Top = 30 * i}
 
                    AddHandler tbo.KeyDown, AddressOf TextBox_KeyDown
                    tbos.Add(tbo)
                Next i
            End With
 
            cboVerfahren = New ComboBox With _
                               {.Parent = Me, .Top = 30 * tbos.Count}
 
            cboSäulenraster = New ComboBox With _
                                  {.Parent = Me, .Top = 30 * (tbos.Count + 1)}
 
            dgv = New DataGridView With _
                      {.Parent = Me, .Top = 30 * (tbos.Count + 2), _
                       .Width = 300, .Height = 150}
            dgv.DataSource = bsGrid
 
            btnLaden = New Button With _
                {.Parent = Me, .Top = dgv.Top + dgv.Height + 10, .Text = _
                "Laden"}
 
            btnSpeichern = New Button With _
                {.Parent = Me, .Top = dgv.Top + dgv.Height + 10, _
                 .Text = "Speichern", .Left = 200}
 
        End Sub