'注释处
lHandle = FindWindowEx(Toolbar1.hwnd, 0&, "ToolbarWindow32", vbNullString)'注释处
lRet = SendMessage(lHandle, 1081&, 0&, 0&)
lRet2 = SendMessage(lHandle2, 1081&, 0&, 0&)'注释处
lRet = lRet Or 2048&
lRet2 = lRet2 Or 2048&'注释处
SendMessage lHandle, 1080&, 0, lRet
SendMessage lHandle2, 1080&, 0, lRet2

解决方案 »

  1.   

    '找到ToolBar的一个类名为ToolbarWindow32的子窗体的句柄(可能是Toolbar上的某个按钮)
    lHandle = FindWindowEx(Toolbar1.hwnd, 0&, "ToolbarWindow32", vbNullString)'发送消息该窗体,该消息是一个自定义消息,具体含义不得而知
    lRet = SendMessage(lHandle, 1081&, 0&, 0&)
    lRet2 = SendMessage(lHandle2, 1081&, 0&, 0&)'获取返回结果
    lRet = lRet Or 2048&
    lRet2 = lRet2 Or 2048&'发送消息该窗体,该消息也是一个自定义消息,具体含义也不得而知
    SendMessage lHandle, 1080&, 0, lRet
    SendMessage lHandle2, 1080&, 0, lRet2