你想做游戏吗?呵呵~用Form的键盘事件吧,比如KeyDown:把上面的代码放至此事件中即可,Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) shape1.left=shape1.left-50End Sub但还有比较复杂的方法,参看“参考资料”