在做这个之前要先做一个小球，点一下小球把drawmode属性改成13 – copy pen，再把fillstyle属性改成0 – solid，再把shape属性改成3 – circle

代码：

Private 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 103: Shape1.Move Shape1.Left - 100, Shape1.Top - 100

Case 105: Shape1.Move Shape1.Left + 100, Shape1.Top - 100

Case 97: Shape1.Move Shape1.Left - 100, Shape1.Top + 100

Case 99: Shape1.Move Shape1.Left + 100, Shape1.Top + 100

End Select

End Sub

按键盘上的↑是向上移动，↓是向下移动，←是向左移动，→是向右移动，7是向左上角移动，9是向右上角移动，1是向左下角移动，3是向右下角移动。