主题：快捷键的问题？求助

在模式窗口上有“向上一条”“向下一条”“最前”“最后”四个控件，代码如下编写，我想对“向上一条”及“向下一条”设置快捷键，代码应该怎么改？求助

Select Case e.Sender.Name

    Case "上一条"

        CurrentTable.Position = CurrentTable.Position - 1

    Case "下一条"

        CurrentTable.Position = CurrentTable.Position + 1

    Case "最前"

        CurrentTable.Position = 0

    Case "最后"

        CurrentTable.Position = CurrentTable.Rows.Count -1

End Select

如下图：
此主题相关图片如下：qq截图20140623163155.jpg

或者只写一个：双击回车 进入下一条