01.
Protected
Overrides
Function
ProcessCmdKey(
ByRef
msg
As
Message, keyData
As
Keys)
As
Boolean
02.
If
keyData = (Keys.Enter)
Then
03.
btnadd.PerformClick()
04.
Return
True
05.
ElseIf
keyData = (Keys.Delete)
Then
06.
btndel.PerformClick()
07.
Return
True
08.
ElseIf
keyData = (Keys.F1)
Then
09.
btnprint.PerformClick()
10.
Return
True
11.
ElseIf
keyData = (Keys.Escape)
Then
12.
Me
.Close()
13.
End
If
14.
Return
MyBase
.ProcessCmdKey(msg, keyData)
15.
End
Function