VB触碰事件

我做了一个游戏但是有个问题就是不会搞，用Label做例子。就是我按W,A,S,D去碰到一个Label然后就弹出一个信息框，这种怎么搞，用不用时钟？分我还没有等我有了我会加上

不明白啊 = =！

'不需要时钟,在窗口添加Label1和Label2控件,将下面程序复制过去就可以了。 Private Sub Form_Load() 'Label边框样子设置 Label1.Appearance = 0 Label1.BorderStyle = 1 Label2.Appearance = 0 Label2.BorderStyle = 1 End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) With Label1 Select Case KeyCode Case 87 '按下W键往上移动 .Top = .Top - 40 ’40为移动速度，可根据需要进行修改 Case 65 '按下A键往左移动 .Left = .Left - 40 Case 68 '按下S键往右移动 .Left = .Left + 40 Case 83 '按下S键往下移动 .Top = .Top + 40 End Select '发生碰撞 If .Left + .Width >= Label2.Left And .Left <= Label2.Left + Label2.Width _ And .Top <= Label2.Top + Label2.Height And .Top + .Height >= Label2.Top Then '可以在这里重新定位Label1 位置 MsgBox "撞到了！" End If End With End Sub '打字很辛苦，请采纳！谢谢！