From Winuser.h :

/*
* VK_L* & VK_R* - left and right Alt, Ctrl and Shift virtual keys.
* Used only as parameters to GetAsyncKeyState() and GetKeyState().
* No other API or message will distinguish left and right keys in this way.
*/
#define VK_LSHIFT 0xA0
#define VK_RSHIFT 0xA1
#

>Hi all,
>I have a form with a RichTextBox on it.
>I want to have two command button LTRCMD and RTLCMD.
>I put below code in LTRCMD Click Event:
>

>#define VK_CONTROL 0x11  && CTRL key  
>#define VK_LSHIFT  160  && Left SHIFT key  
>#define VK_RSHIFT  161  && Right SHIFT key  
>#define KEYEVENTF_KEYUP  2
>#define KEYEVENTF_EXTENDEDKEY  1 
>
>DECLARE INTEGER keybd_event IN Win32API INTEGER, INTEGER, INTEGER, INTEGER
>
>thisform.olerTF.SetFocus
>      
>keybd_event( VK_CONTROL,  0, 0 , 0 ) && ctrl key down
>keybd_event( VK_LSHIFT,    0, 0 , 0 ) && Left Shift key down
>
>keybd_event( VK_CONTROL,  0, KEYEVENTF_KEYUP, 0 ) 
>keybd_event( VK_LSHIFT,    0, KEYEVENTF_KEYUP, 0 )
>

>and below code in RTLCMD Click event :
>

>#define VK_CONTROL 0x11  && CTRL key  
>#define VK_LSHIFT  160   &&0x2A  && Left SHIFT key  
>#define VK_RSHIFT  161   &&0x36  && Right SHIFT key  
>#define KEYEVENTF_KEYUP  2
>#define KEYEVENTF_EXTENDEDKEY  1 
>
>DECLARE INTEGER keybd_event IN Win32API INTEGER, INTEGER, INTEGER, INTEGER
>
>thisform.olerTF.SetFocus
>      
>keybd_event( VK_CONTROL,  0, 0 , 0 ) && ctrl key down
>keybd_event( VK_RSHIFT,    0, 0 , 0 ) && Right Shift key down
>
>keybd_event( VK_CONTROL,  0, KEYEVENTF_KEYUP, 0 ) 
>keybd_event( VK_RSHIFT,    0, KEYEVENTF_KEYUP, 0 )
>

>when i press LTRCMD, all thing is good, but when i press RTLCMD ? NOTHING !
>where i am wrong?
>Thanks