*** Mouse down event LPARAMETERS nButton, nShift, nXCoord, nYCoord IF nButton == 1 **************************************************************************************************** ******** You should declare this API in the INIT event of the form or somewhere at the beggining of your applicatioh ******** DECLARE SHORT GetKeyState IN WIN32API INTEGER **************************************************************************************************** #define VK_SHIFT 0x10 #define VK_CONTROL 0x11 #define VK_MENU 0x12 && This is ALT key lnAdd = 0 DO CASE CASE GetKeyState( VK_CONTROL) < 0 lnAdd = 50 - this.Increment && Just because at the Mouse Up this.Increment will be added CASE GetKeyState( VK_SHIFT) < 0 lnAdd = 10 - this.Increment CASE GetKeyState( VK_MENU) < 0 lnAdd = 100 - this.Increment ENDCASE this.Value = this.Value + lnAdd ENDIFNOT PROPERLY TESTED!