Private Sub grdArtikel_EditKeyDown(KeyCode As Integer, Shift As Integer)
  Dim nCol As Long
  Dim nRow As Long
 
  With mobjGridArtikel
 
    nRow = .Row: nCol = .Col
    Select Case KeyCode
      Case vbKeyUp
        If nRow > 1 Then
          KeyCode = 0
          .DoEdit nRow - 1, nCol
          If Me.chkBilderAn Then
            Call OpenPictureFromServer
          End If
        End If
      Case vbKeyDown
        If nRow < .Rows Then
          KeyCode = 0
          .DoEdit nRow + 1, nCol
          If Me.chkBilderAn Then
            Call OpenPictureFromServer
          End If
        End If
    End Select
  End With
End Sub