Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles DataGrid1.CurrentCellChanged
        Dim grid As Windows.Forms.DataGridCell
        Dim selectedItem As Object
        Dim form As New Kasse
        Dim vorn As String
        Dim nr As Integer
 
        grid = DataGrid1.CurrentCell
 
        selectedItem = DataGrid1.Item(grid.RowNumber, grid.ColumnNumber)
        nr = CInt(selectedItem)
 
        selectedItem = DataGrid1.Item(grid.RowNumber, 1)
        vorn = selectedItem
 
 
        '    DataGrid1.Select(grid.RowNumber)
        AddHandler DataGridTextBoxColumn1.TextBox.KeyDown, AddressOf _
          Me.Column_KeyDown
 
    End Sub
    Private Sub Column_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = Keys.F1 Then
            Call DataGrid1_DoubleClick(sender, e)
        End If
    End Sub
 
 
Private Sub DataGrid1_DoubleClick(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles DataGrid1.DoubleClick
        Dim grid As Windows.Forms.DataGridCell
        Dim selectedItem As Object
        Dim form As New Kasse
        Dim vorn As String
        Dim nr As Integer
 
        grid = DataGrid1.CurrentCell
 
        selectedItem = DataGrid1.Item(grid.RowNumber, grid.ColumnNumber)
        nr = CInt(selectedItem)
 
        selectedItem = DataGrid1.Item(grid.RowNumber, 1)
        vorn = selectedItem
 
 
        form.KDNr.Text = nr
 
        form.MdiParent = Me.ParentForm
        form.Dock = DockStyle.Fill
        form.Show()
        form.Betrag1.Focus()
        ' Me.Close()
    End Sub