2010-02-24

Listen windows messages in controls

Public Class MyTextBox
     Inherits TextBox
     Private WM_KEYUP As Integer = &H101
          If m.Msg = WM_KEYUP Then
     Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
               Return 'ignore the keyup
          End If
          MyBase.WndProc(m)
     End Sub 'WndProc
End Class 'MyTextBox