当用户做了菜单选择时触发相应事件处理
Sub Technic_MenuUserID(Gird, MenuID) IF MenuID=0 then Application.MsgOut "第一个快捷菜单事件" end if End Sub
Frame 对象