制作弹出菜单

Question

我用这个代码作了一个弹出的菜单，但如果窗口的菜单的visible属性为false，就显示不出来了，如何让菜单在窗口上不显示但弹出时显示
Option Explicit
Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function TrackPopupMenu Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, ByVal lprc As Any) As LongPrivate Sub Command1_Click()
    Dim pos As POINTAPI, hMenu As Long
    GetCursorPos pos
    hMenu = GetSubMenu(GetMenu(Form1.hwnd), 0)
    TrackPopupMenu hMenu, 0, pos.x, pos.y, 0, Form1.hwnd, ByVal 0&End Sub

Answer 1

你好象复杂化了吧
popupmenu mnuFile(菜单名)