设置窗体属性keypreview=true
在窗体keydown 事件中添加下以代码
if keyascii=38 then command1_click '上方向键
if keyascii=40 then command2_click '下方向键
在from 的keypress事件中写代码
if keyascii=vbkeyup then
button1_click
end if
if keyascii=vbkeydown then
button2_click
end if