Procedure Control.MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord If nShift = 1 Wait Window "SHIFT key is pressed" EndIf EndProc