0
kicks
KeyUp event problem on a form
Implement IMessageFilter:
Public Class WindowsKeyFilter
Implements IMessageFilter
Public Event KeyDown As KeyEventHandler
Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Messa
ge) As Boolean Implements System.Windows.Forms.IMessageFilter.PreFilterMessage
Const WM_KEYDOWN = &H100
Select Case m.Msg
Case WM_KEYDOWN
RaiseEvent KeyDown(Me, New KeyEventArgs(m.WParam.ToInt32))
End Select
End Function
End Class