With a little help from WIN32API project from VFPx

#define VK_SHIFT   0x10    && SHIFT key
#define VK_CONTROL 0x11    && CTRL key
#define VK_MENU    0x12    && ALT key

DECLARE INTEGER GetAsyncKeyState IN user32;
     INTEGER vKey

lbLoop = .t.
DO WHILE lbLoop 
   CLEAR
   ? "Shift", GetAsyncKeyState (VK_SHIFT)        # 0
   ? "Ctrl" , GetAsyncKeyState (VK_CONTROL) # 0
   ? "Alt"  , GetAsyncKeyState (VK_MENU)        # 0
   lbLoop = INKEY(0) # 27 && Press ESC to exit the loop, press any other key to see the result. To Alt+A, Ctrl+A, Shift+A, only A etc. becuase if you press only Shift/Ctril/Alt Inkey(0) do not work :-)
ENDDO

>Hi Hank,
>
>Thanks
>CRLT+Mouse; SHIFT+Mouse. I need to figure out the CTRL and the SHIFT, Mouse alone works as expected.
>
>Lutz
>>Have you checked mdown() value in BeforeRowColChange?
>>
>>>Hi All,
>>>
>>>I have an oddness in grids events.
>>>
>>>The event MousDown is called by the system, but code in MousDown is not executed in this moment but later on.
>>>
>>>My MousDown looks like
>>>

>>>LPARAMETERS ;
>>> tnButton,;
>>> tnShift,;
>>> tnXCoord,;
>>> tnYCoord,;
>>> toColumn
>>>
>>>DEBUGOUT PROGRAM(),' ',ALIAS(),' ',RECNO()
>>>

>>>If I MouseClick I got EventLog / Debuglog
>>>

>>>46736,246, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.MouseDown(1,0, 2,0, 461,0, 208,0)
>>>46736,246, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.BeforeRowColChange(3,0)
>>>46736,246, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.column3.text1.When()
>>>46736,246, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.column3.text1.Valid()
>>>46736,249, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.column3.text1.Valid()
>>>46736,249, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.column3.text1.When()
>>>46736,254, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.AfterRowColChange(3,0)
>>>46736,262, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.column3.text1.MouseDown(1,0, 2,0, 461,0, 208,0)
>>>FRMNUTZER.PGFMAIN.PAGE1.CNTLIST.GRDLISTGRID.MOUSEDOWN   CURMITARBEITER_EDIT           16,0
>>>

>>>The last line is the DEBUGOUT of MouseDown
>>>
>>>Yeah, nice, I would like to know if the mouse is pressed with SHIFT or CTRL, if I reach BeforeRowColChange...
>>>
>>>Could somebody please check that he got this odd event behaviour? Does somebody have an idea how to get the code running the right moment?
>>>
>>>Thanks
>>>Lutz