Private Sub FormADD()
        Dim Arr As New ArrayList
        Dim _s As New Sett
        Dim i As Integer
        Dim ds As New DataSet
        Dim tab As DataTable
        ds = Grid1.DataSource
        tab = ds.Tables(0)
        Dim Frm As New Form
        Dim Button1, Button2 As New Button
        For i = 0 To Grid1.ColumnCount() - 1
            _s.typeCol = Grid1.Columns(i).ValueType.ToString
            _s.ColumName1 = tab.Columns(i).Caption
            _s.ColumNameL = Grid1.Columns(i).HeaderText
            Arr.Add(_s)
        Next
        Frm.AutoSize = True
        Frm.Size = New Size(475, 240)
        Frm.StartPosition = FormStartPosition.CenterScreen
        Frm.Name = "FrmAdd"
        Frm.Text = "Справочник " & "" & TabName & "" & "(Новый)"
        Frm.ShowIcon = True
        Frm.Icon = Me.Icon
        Frm.MaximizeBox = False
        Frm.MinimizeBox = False
        Frm.Controls.Add(Button1)
        With Button1
            .Anchor = AnchorStyles.Bottom Or AnchorStyles.Right
            .Location = New Point(291, 172)
            .Size = New Size(75, 23)
            .Name = "Button1"
            .Text = "Ok"
        End With

        Frm.Controls.Add(Button2)
        With Button2
            .Anchor = AnchorStyles.Bottom Or AnchorStyles.Right
            .Location = New Point(372, 172)
            .Size = New Size(75, 23)
            .Name = "Button2"
            .Text = "Отмена"
        End With
        Frm.AcceptButton = Button1
        Frm.CancelButton = Button2
        'Цикл по структуре таблицы для добовлеения
        'на форму элементов управления
        Dim num As IEnumerator
        num = Arr.GetEnumerator
        For i = 0 To Arr.Count() - 1
            num.MoveNext()
            If CType(num.Current, Sett).ColumNameL <> "Код" Then
                'Сначало добовлям Label
                Dim Label As New Label
                Label.Parent = Frm
                Label.Name = "Label" & i
                Label.AutoSize = True
                Label.Text = CType(num.Current, Sett).ColumNameL
                Label.Top = 5 + i * 20
                Label.Left = 10
                Label.Show()
                If CType(num.Current, Sett).typeCol = "System.String" Then
                    Dim TextBox As New TextBox
                    TextBox.Parent = Frm
                    TextBox.Name = "TextBox" & i
                    TextBox.Width = 200
                    TextBox.Top = 5 + i * 20
                    TextBox.Left = 150
                    TextBox.Show()
                End If
                If CType(num.Current, Sett).typeCol = "System.Boolean" Then
                    Dim CheckBox As New CheckBox
                    CheckBox.Parent = Frm
                    CheckBox.Name = "CheckBox" & i
                    CheckBox.AutoSize = True
                    CheckBox.Checked = True
                    CheckBox.ThreeState = True
                    CheckBox.Top = 5 + i * 20
                    CheckBox.Left = 150
                    CheckBox.Show()
                End If
            End If
        Next
        Frm.Show()
    End Sub