用VB做一个小球移动的问题，代码是：
Sub Form_KeyDown(keycode As Integer, shift As Integer)
Select Case keycode
    Case vbKeyUp: Shape1.Move Shape1.Left, Shape1.Top - 100
    Case vbKeyDown: Shape1.Move Shape1.Left, Shape1.Top + 100
    Case vbKeyLeft: Shape1.Move Shape1.Left - 100, Shape1.Top
    Case vbKeyRight: Shape1.Move Shape1.Left + 100, Shape1.Top
    Case vbKeyUp And vbKeyLeft: Shape1.Move Shape1.Left - 100, Shape1.Top - 100
    Case vbKeyUp And vbKeyRight: Shape1.Move Shape1.Left + 100, Shape1.Top - 100
    Case vbKeyDown And vbKeyLeft: Shape1.Move Shape1.Left - 100, Shape1.Top + 100
    Case vbKeyDown And vbKeyRight: Shape1.Move Shape1.Left + 100, Shape1.Top + 100
   End Select
End Sub
怎样才能限制小球移动的区域？
顺便还问下，这个程序控制小球斜着走必须两个方向键同时按下去才可以，怎样才能优化成不管同不同时按下两个键就可以斜着走呢？

【怎样才能优化成不管同不同时按下两个键就可以斜着走呢？】
可以用小键盘。...还是辅助键盘？
【怎样才能限制小球移动的区域？】
自己搞吧！~也都是些加加减减的东西。

把代码改了一下，做个参考吧！小键盘控制小球斜着走,7、9、1、3
Sub Form_KeyDown(keycode As Integer, shift As Integer)
Select Case keycode
    Case vbKeyUp: Shape1.Move Shape1.Left, Shape1.Top - 100
      If Shape1.Top < 0 Then Shape1.Move Shape1.Left, Shape1.Top + 100
    Case vbKeyDown: Shape1.Move Shape1.Left, Shape1.Top + 100
      If Shape1.Top > Screen.Height Then Shape1.Move Shape1.Left, Shape1.Top - 100
    Case vbKeyLeft: Shape1.Move Shape1.Left - 100, Shape1.Top
      If Shape1.Left < 0 Then Shape1.Move Shape1.Left + 100, Shape1.Top
    Case vbKeyRight: Shape1.Move Shape1.Left + 100, Shape1.Top
      If Shape1.Left > Screen.Width Then Shape1.Move Shape1.Left - 100, Shape1.Top
   
    Case 33: Shape1.Move Shape1.Left - 100, Shape1.Top - 100
    Case 34: Shape1.Move Shape1.Left + 100, Shape1.Top + 100
    Case 35: Shape1.Move Shape1.Left - 100, Shape1.Top + 100
    Case 36: Shape1.Move Shape1.Left + 100, Shape1.Top - 100
   End Select
End Sub

关键是我想用组合键来控制小球斜着走...我写的代码也可以做到,不过就是要求两个键在同时按下才可以

我是想同时按两个方向键控制小球,方向键设成光标键,我那段代码也可以,但是必须同时按下才可以做到小球斜着走,怎样能做到不管同不同时,只要按两个相邻的光标键就可以斜着走?

还是没能明白你的意思！~

就是说,我之前写的代码,想让小球斜着走,必须让它向左上方移动,就必须同时按下光标左键和光标上键,如果先按左键不放,再按下右键,小球是向左移动的而不是向左上方移动的...   怎样能做到,先按左键再按下上键,小球向左上方移动?

呵呵！~终于理解了 ！~

Option Explicit

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim b(0 To &HFF) As Byte
    Debug.Print KeyCode, Shift, Hex$(GetKeyState(40)), GetKeyboardState(b(0)), CBool(b(40) And &H80)
End Sub

声明一个变量，数值型和T/F型都可以，
然后按下键子时为1，松开时自动为0，然后移动的时候加个判断就可以了。
例子：
dim a,b
cmd1_keydown
a=1
cmd1_keyUP
a=0
cmd2_keydown
b=1
cmd2_keyUP
b=0
cmd_timer
if a=1 and b=1 then 执行斜线运动
代码完全没有格式，只是思路，请注意

这段代码是什么意思?能不能解释下啊...谢谢啦~
我加上了好像没什么变化...