Adding Sub To Webbrowser Control

[rsitogp]

Hello,

I wanted to add a keypress sub to the webbrowser control but it doesn't seem to work. Here's my code:

Private Sub WebBrowser1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  MsgBox "NO ENTER PLEASE!"
End If
End Sub

Please help!

Thanks In Advance!