用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
怎样才能限制小球移动的区域？
顺便还问下，这个程序控制小球斜着走必须两个方向键同时按下去才可以，怎样才能优化成不管同不同时按下两个键就可以斜着走呢？

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

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

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

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

这次对了~~呵呵 谢谢啦~~

哦...游戏里这么复杂...