ascii code not working

[Blobishthing]

I cant work out what is wrong with this code. when i press the buttons nothing happens.

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Unload Me
Else: If KeyAscii = 119 Then frmAbout.Show
Else: Keys.Show
End If
End Sub

Thanx in advance

 

[JustinEzequiel]

try setting the form's .KeyPreview property to True
may also have to check the structure your If...End If

 

[Tranman]

I always find Select Case simpler than IfThenElse's:

Private Sub Form_KeyPress(KeyAscii As Integer)

Select Case KeyAscii
Case 13
Unload Me
Case 119
frmAbout.Show
Case Else
Keys.Show
End Select

End Sub

Paul