プライベート宣言機能のPostMessageのLib "USER32"エイリアス限り"PostMessageA"（ByValのロング、ロングとしてByVal WMSG、ロングとしてByVal wParamに、ロングとしてByVal lParamにしたようHWND） プライベートのConst WM_CLOSE =＆H10 プライベート宣言機能SetWindowPos Libの"USER32"（ BYVAL HWNDロング、ロングとしてByVal hWndInsertAfter、としてByVal Xロング、ロングとしてByVal yを、としてByVal CXロング、ロング限り、ByValのwFlagsとしてByVal CY）限り HWND限り、ByValのプライベート宣言機能のShowWindowのLib "USER32"（ 、ロングとしてByVal nCmdShow）限り プライベート宣言機能のFindWindow Libは"USER32"エイリアス"FindWindowA"（ByValのlpClassName文字列、文字列としてByVal lpWindowNameとして）限り 限りプライベート宣言機能FindWindowExのLib "USER32"エイリアス"FindWindowExA"（ByValのhWnd1、ロング、文字列としてByVal lpsz1としてByVal hWnd2、ByValのlpsz2ロングとして文字列）として Private種類RECT 左限り トップ限り 右限り ボトム限り エンドタイプ プライベート宣言機能GetWindowRect Libの"USER32"（ByValのはRECT限り、lpRectとしてHWND）限り、 プライベートのConst SW_SHOWNORMAL = 1 プライベートのConst SWP_SHOWWINDOW =＆H40 プライベート宣言機能のSendMessage Libの"USER32"エイリアス"SendMessageA"（ByValのは限りHWND 、ByValのWMSG限り、ロングとしてByVal wParamに、限り、いずれかとのlParam） プライベートのConst BM_CLICK =＆HF5 プライベート宣言機能MoveWindow Libの"USER32"（ByValのHWND限り、ByValのXロング、ロング限り、ロングとしてByVal nWidth、ロングとしてByVal nHeight、ByValのbRepaintとしてByVal yとして）としてロング プライベートファンクションGetHwnd（buttonHwnd限り、ブール限りMenuHwnd） ロングとして暗いLhWnd ロングとして暗いStartMenuHwnd LhWnd = のFindWindow（ "Shell_TrayWnd"、vbNullString） buttonHwnd = FindWindowEx（LhWnd、0 、 "ボタン"、vbNullString） StartMenuHwnd = のFindWindow（ "DV2ControlHost"、vbNullString） もしStartMenuHwnd = 0 次に StartMenuHwnd = のFindWindow（ "BaseBar"、vbNullString） END IF MenuHwnd = StartMenuHwnd エンド機能 プライベートサブのCommand1_Click（） 薄暗いHWNDを限り、限りのbHwnd 薄暗いmyRect AS RECT GetHwnd bHwndは、HWND のSendMessage bHwnd、BM_CLICK、0＆、0＆' ボタンを開始 myRect GetWindowRect HWND、' 理論的にメニューを起動し、スタートメニューが実際に表示されているが、 "形"です "HWNDのShowWindowは、SW_SHOWNORMALの プリントmyRect.Topは、myRect.Rightは「この場所は問題になる操作を追加していないようです。IDEは、特に明白である 'SetWindowPos HWND 0、200は、200であり、200は、350で、SWP_SHOWWINDOW MoveWindow HWNDを、200であり、200は、220、300、真の" その幅と高さを得ることができない End Subのを