有何方法才能用keybroad控制program??因我試過不行(編號：30088)

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyUp Then
　　End
　　End If
　　If KeyAscii = vbKeyRight Then
　　Shape1.Left = Shape1.Left + 480
　　End If
　　If KeyAscii = vbKeyLeft Then
　　Shape1.Left = Shape1.Left - 480
　　End If
End Sub
我試過打以上的文字，但不能用keybroad控制program。
請問尚有何方法?
thx~