PrivateDeclareFunctionPostMessageLib"user32"Alias"PostMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLongPrivateConstWM_LBUTTONDOWN=&H201PrivateConstWM_LBUTTONUP=&H202PrivateSubCommand1_Click()MsgBox"123"EndSubPrivateSubCommand2_Click()PostMessageCommand1.hwnd,WM_LBUTTONDOWN,0,0PostMessageCommand1.hwnd,WM_LBUTTONUP,0,0EndSub