Private Sub DtGrd_AlleHerstellingenLijnen_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles DtGrd_AlleHerstellingenLijnen.KeyPress
   If e.KeyChar = vbCr Then
     Ophalen_InterventieBon()
   End If
  End Sub

Private Sub DtGrd_AlleHerstellingenLijnen_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DtGrd_AlleHerstellingenLijnen.KeyDown
   Dim bHandled As Boolean = False

   Select Case e.KeyCode
     Case Keys.Right
      'MsgBox("enter")
      Ophalen_InterventieBon()
      e.Handled = True
     Case Keys.Up
      If Not DtGrd_AlleHerstellingenLijnen.CurrentRowIndex = 0 Then
        DtGrd_AlleHerstellingenLijnen.CurrentRowIndex = DtGrd_AlleHerstellingenLijnen.CurrentRowIndex - 1
      End If
      e.Handled = True
     Case Keys.Down
      If DtGrd_AlleHerstellingenLijnen.CurrentRowIndex < DtGrd_AlleHerstellingenLijnen.VisibleRowCount - 1 Then        'is totaal van rijen in grid min 2 om niet vast, te lopen
        DtGrd_AlleHerstellingenLijnen.CurrentRowIndex = DtGrd_AlleHerstellingenLijnen.CurrentRowIndex + 1

      End If
      e.Handled = True
   End Select

If Asc(e.KeyChar) = Keys.Enter Then

End If