Public Class frmEdit
 
    Dim dt As New DataTable
 
    Dim WithEvents bs As New BindingSource With _
      {.RaiseListChangedEvents = True}
 
    'Eigenschaften des Grid einrichten 
    Dim dgv As New DataGridView With _
        {.Parent = Me, .Size = New Size(500, 500), .DataSource = bs, _
         .SelectionMode = DataGridViewSelectionMode.FullRowSelect, _
         .MultiSelect = False}
 
    Dim maxRowNumber As Integer = 0 'Zeilenzähler
 
 
    Private Sub frmEdit_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.Size = New Size(520, 520)
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
 
        'Erforderliche Eingabespalten
        With dt.Columns
            .Add("SP1") : .Add("SP2") 'usw.
        End With
 
 
        bs.DataSource = dt
 
        For i As Integer = 0 To dgv.Columns.Count - 1
            dgv.Columns(i).SortMode = _
               DataGridViewColumnSortMode.NotSortable
        Next i
 
        dgv.RowHeadersWidth = 50
    End Sub
 
 
    Private Sub bs_AddingNew(sender As Object, _
        e As System.ComponentModel.AddingNewEventArgs) Handles bs.AddingNew
 
        If bs.Count = 0 Then Exit Sub
        If dgv.Rows(bs.Count - 1).HeaderCell.Value IsNot Nothing Then Exit Sub
 
        maxRowNumber += 1
        dgv.Rows(bs.Count - 1).HeaderCell.Value = maxRowNumber.ToString
 
    End Sub
End Class

Public Class frmEdit
 
    Dim dt As New DataTable
 
    Dim WithEvents bs As New BindingSource With {.RaiseListChangedEvents = True}
 
    Dim dgv As New DataGridView With _
        {.Parent = Me, .Size = New Size(500, 500), .DataSource = bs, _
         .SelectionMode = DataGridViewSelectionMode.FullRowSelect, _
         .MultiSelect = False, .AllowUserToAddRows = False}
 
    Dim maxRowNumber As Integer = 0
 
 
    Private Sub frmEdit_KeyDown(sender As Object, _
        e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
 
        If dgv.Focused Then
            'Tasten für dgv verarbeiten
            If e.Control Then
                If e.KeyCode = Keys.Oemplus Then
                    bs.AddNew()
                    maxRowNumber += 1
                    dgv.Rows(bs.Count - 1).HeaderCell.Value = _
                      maxRowNumber.ToString
                End If
 
                'If e.KeyCode = Keys.Delete Then
                '    If dgv.SelectedRows.Count > 0 Then
                '        bs.RemoveAt(dgv.SelectedRows(0).Index)
                '        e.SuppressKeyPress = True
                '    End If
                'End If
            Else
                If e.KeyCode = Keys.Delete Then
                    e.SuppressKeyPress = True
                End If
            End If
        End If
    End Sub
 
 
    Private Sub frmEdit_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.KeyPreview = True 'Tasten zuerst ans Formular senden
 
        Me.Size = New Size(520, 520)
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
 
        With dt.Columns
            .Add("SP1") : .Add("SP2")
        End With
 
 
        bs.DataSource = dt
 
        For i As Integer = 0 To dgv.Columns.Count - 1
            dgv.Columns(i).SortMode = DataGridViewColumnSortMode.NotSortable
        Next
        dgv.RowHeadersWidth = 50
    End Sub
End Class