Question

如何用键盘控制vb程序内的运行啊 比如按A键让shape1.left=shape1.left-50

Answer 1

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

Answer 2

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA Then Shape1.Left = Shape1.Left - 50
End Sub

Private Sub Form_Load()
Form1.KeyPreview = True
End Sub