SPread 如何实现鼠标右击选中单元格？

SPread 如何实现鼠标右击选中单元格？我加了代码右击出现快捷菜单，但是单元格不跟着变。
Private Sub lvSpread_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  If Button = 2 Then
          PopupMenu mnuFile, 0, x, y
  End If
End Sub

建议你使用CellClick事件来实现这一功能。在事件中设置selection。

gw0506 帮忙写一下代码吧

请参考：
http://gcdn.grapecity.com/showtopic-1675.html