bs.DataSource = dt
DataGridView1.DataSource = bs

Public Class frmKasseSub
 
    Dim dt As New DataTable
    Dim bs As New BindingSource
 
    Dim tbos() As TextBox
    Dim lbls() As Label
 
    Dim WithEvents btnNext As New Button With _
        {.Parent = Me, .Text = "Next", .Enabled = False}
 
    Public WriteOnly Property Columns() As DataColumn()
        Set(value As DataColumn())
            dt.Clear()
            dt.Columns.Clear()
            For i As Integer = 0 To value.Length - 1
                dt.Columns.Add(value(i).ColumnName, value(i).DataType)
            Next i
            bs.DataSource = dt
 
            Array.Resize(tbos, value.Length)
            Array.Resize(lbls, value.Length)
 
            Dim f As New Font("Arial", 14)
            For i As Integer = 0 To value.Length - 1
                tbos(i) = New TextBox
                With tbos(i)
                    .Font = f
                    .Parent = Me
                    .Top = CInt(i * 1.1 * .Height + 2 * btnNext.Height)
                    .Left = 150 : .Width = 150
                    .ReadOnly = True
                    .DataBindings.Add("Text", bs, value(i).ColumnName)
                End With
 
                lbls(i) = New Label
                With lbls(i)
                    .Font = f
                    .Parent = Me
                    .Top = tbos(i).Top + 4
                    .Width = 150
                    .Text = value(i).ColumnName
                End With
            Next i
 
            With tbos(value.Length - 1)
                Me.Height = .Top + .Height + 50
                Me.Width = 320
            End With
        End Set
    End Property
 
    Public WriteOnly Property RowToAdd() As DataRow
        Set(value As DataRow)
            Dim nr As DataRow = dt.NewRow
            For i As Integer = 0 To dt.Columns.Count - 1
                nr(i) = value(i)
            Next i
            dt.Rows.Add(nr)
            bs.Position = bs.Count - 1
            btnNext.Enabled = bs.Count > 2
        End Set
    End Property
 
    Private Sub btnNext_Click(sender As Object, _
                e As System.EventArgs) Handles btnNext.Click
 
        If bs.Count = 0 Then Exit Sub
        If bs.Position < bs.Count - 1 Then
            bs.Position += 1
        Else
            bs.Position = 0
        End If
    End Sub
End Class