Key Press Problem

[Ramandeep]

Can any one tell me why this isn't working?

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyUp Then
        KeyAscii = 0
        Debug.Print "Up Key Pressed"
        Beep
    End
    
    If KeyAscii = vbKeyDown Then
        KeyAscii = 0
        Debug.Print "Down Key Pressed"
        Beep
    End If
End Sub

This is just a test i wrote for another program just to see if the keys etc work, but nothing happens no beeps and no text is being printed in th debug dialog...help?

I have also tried the keyDown & keyUp procedures still nothing.