我的彈出式菜不可用

我想設計右擊MSFIEXGRID中的一個記錄值，就會出現一個彈出式菜單。
我用代碼如下：
　private sub grid_a_mouseup(button as integer,shift as integer,x as single,y as single)’主菜單mmushape
     if button = vbrightbutton then
  popupmenu mmushape
end if
end subprivate sub mnushapeexit_click()‘子菜單“退出”按鈕
  unload me
end sub
系統執行後可以右擊彈出菜單mmushape，當點擊“退出”時，　無法響應“退出”的代碼。
想了好半天也沒有想出來，郁悶呀！