Private Declare Function GetAsyncKeyState Lib "user32" ( _
                 ByVal vKey As Long) As Integer
 
Private Sub MSFlexGrid1_SelChange()
    Call Grid_Pfeiltasten(MSFlexGrid1)
End Sub
 
Public Function Grid_Pfeiltasten(Grid As MSFlexGrid)
 
If GetAsyncKeyState(vbKeyUp) = -32767 Or _
    GetAsyncKeyState(vbKeyDown) = -32767 Or _
    GetAsyncKeyState(vbKeyLeft) = -32767 Or _
    GetAsyncKeyState(vbKeyRight) = -32767 Then
 
        Debug.Print "Pfeiltaste"    
 
End If
 
End Function