to 10楼
这个代码是没什么目的,只是针对楼主说的"用键盘上向有的方向键实现"->"按钮的功能.
另外你说的如果焦点在Form上按右键触发,我想应该是这个样子:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA Then
Cmdright_Click
End If
End Sub
(窗体的KeyPreview为Ture)
另外我也是新手,说错了别PIA我.

上边写错个东西.不是vbKeyA,是vbKeyRight

那不一样，版主是高级菜鸟,呵呵.我还没入门呢.