#define WM_LBUTTONDOWN 0x0201 #define WM_SYSKEYDOWN 0x0104 #define WM_SYSKEYUP 0x0105 #define VK_MENU 12 #define VK_DOWN 28 LOCAL lnHWND LOCAL ARRAY arrDLL[1] ADLLS(arrDLL) IF ASCAN(arrDLL,'SendMessage',1,-1,1,1+2+4) = 0 declare integer SendMessage IN WIN32API ; integer hwnd, integer Msg, integer Wparam, integer lParam endif lnHwnd = This.hWnd *lnHwnd = Thisform.Oledatectrl.hWnd SendMessage(lnHwnd,WM_LBUTTONDOWN,0,0) SendMessage(lnHwnd,WM_SYSKEYDOWN,VK_MENU+VK_DOWN,0) SendMessage(lnHwnd,WM_SYSKEYUP,VK_MENU+VK_DOWN,0)Cetin