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