Turn off Caps Lock warning message

See more:

VB

Hi!

I have a form 'form1' with a textbox 'textbox1'. UseSystemPasswordChar=True because it would be a password field. When I turn on caps lock a warning message appears. I want to disable ONLY this one balloon!

I have this code, but it doesn't work! It looks like message number for EM_SHOWBALLOONTIP is not correct, but I can't find the good one.

Public Delegate Sub DeActivateEventHandler()

Public Class Form1
    Private Const ECM_FIRST As Long = &H1500
    Private Const EM_SHOWBALLOONTIP As Long = (ECM_FIRST + 3)
    Public Event DeActivate As DeActivateEventHandler

    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = EM_SHOWBALLOONTIP Then
            MsgBox("Jump")
            RaiseEvent DeActivate()
        Else
            MyBase.WndProc(m)
        End If
    End Sub
End Class

Could you help please?