我按下上下左右这几个控制键的时候，发生相应的事件，怎么做？

帮帮忙，知道的说一下啊

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 37 Then
        MsgBox ("左")
    End If
    If KeyCode = 38 Then
        MsgBox ("上")
    End If
    If KeyCode = 39 Then
        MsgBox ("右")
    End If
    If KeyCode = 40 Then
        MsgBox ("下")
    End If
End Sub

谢谢了