#define WM_COMMAND 0x0111 #define WM_SYSCOMMAND 0x0112 #define SC_KEYMENU 0xF100 #define WM_CHAR 0x0102 declare integer PostMessage in user32.dll long, long, long, long && select the menu =PostMessage (m.thisform.hwnd, WM_SYSCOMMAND, SC_KEYMENU, 0) && make it drop down =PostMessage (m.thisform.hwnd, WM_CHAR , asc(space(1)), 0)