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

我用的这个，不知道还有别的方法没有
      With fpSpread
         For i = 0 To .DataRowCnt
            .RowHeight(i) = .MaxTextRowHeight(i)
         Next
       End With

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