用VB编写一个弹出菜单类

' 类的名称为cPopupMenu

Option   Explicit
'
Private  Type POINT
    x  As   Long
    y  As   Long
End  Type
'
Private   Const  MF_ENABLED  =   & H0 &
Private   Const  MF_SEPARATOR  =   & H800 &
Private   Const  MF_STRING  =   & H0 &
Private   Const  TPM_RIGHTBUTTON  =   & H2 &
Private   Const  TPM_LEFTALIGN  =   & H0 &
Private   Const  TPM_NONOTIFY  =   & H80 &
Private   Const  TPM_RETURNCMD  =   & H100 &
Private  Declare  Function  CreatePopupMenu Lib  " user32 "  ()  As   Long
Private  Declare  Function  AppendMenu Lib  " user32 "  Alias  " AppendMenuA "  (ByVal hMenu  As   Long , ByVal wFlags  As   Long , ByVal wIDNewItem