小吳 VBQA 程式設計討論

歹勢~先輩借問一下!
我想執行其他應用程式的功能表的指令,但是卻不知如何執行,以下是我到處尋找資料,而寫的程式碼,請先輩指正!謝謝~
　　Dim hWndRecv As Long
　　Dim hMenu As Long
　　Dim hSubMenu As Long
　　Dim MenuID As Long
　　hWndRecv = FindWindow("WinGISMainWindow", vbNullString)
　　hMenu = GetMenu(hWndRecv)
　　hSubMenu = GetSubMenu(hMenu, 4)
　　MenuID = GetMenuItemID(hSubMenu, 2)
　　MsgBox SendMessage(hWndRecv, WM_COMMAND, MenuID, 0)