Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim lCol As Long
  Dim lRow As Long
  Dim lColMax As Long
  Dim lRowMax As Long
 
  lCol = MSFlexGrid1.Col
  lRow = MSFlexGrid1.Row
 
  lColMax = MSFlexGrid1.Cols - 1
  lRowMax = MSFlexGrid1.Rows - 1
 
  Debug.Print "Col: " & lCol & " Row: " & lRow
 
  Select Case KeyCode
    Case vbKeyDown
        If MSFlexGrid1.Row = lRowMax Then Exit Sub
        For i = 0 To lColMax
            MSFlexGrid1.Col = i
            MSFlexGrid1.CellBackColor = MSFlexGrid1.BackColor
        Next i
        MSFlexGrid1.Row = lRow + 1
        For i = 0 To lColMax
            MSFlexGrid1.Col = i
            MSFlexGrid1.CellBackColor = &HA393C3
        Next i
    Case vbKeyUp
        If MSFlexGrid1.Row = 1 Then Exit Sub
        For i = 0 To lColMax
            MSFlexGrid1.Col = i
            MSFlexGrid1.CellBackColor = MSFlexGrid1.BackColor
        Next i
        MSFlexGrid1.Row = lRow - 1
        For i = 0 To lColMax
            MSFlexGrid1.Col = i
            MSFlexGrid1.CellBackColor = &HA393C3
        Next i
  End Select
  MSFlexGrid1.Col = 0
  MSFlexGrid1.SetFocus
  SendKeys "{UP}{DOWN}", True
  Me.SetFocus
End Sub