Hello everybody. I'm trying to display a balloon tooltip close to one textbox, but so far no luck. What am I doing wrong? Here is the code:

Code:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const ECM_FIRST         As Long = &H1500
Private Const EM_SHOWBALLOONTIP As Long = (ECM_FIRST + 3)
Private Const EM_HIDEBALLOONTIP As Long = (ECM_FIRST + 4)
Private Type BALLOONTIP
    cbStruct As Long
    pszTitle As String * 10
    pszText As String * 10
    tIcon As Long
End Type



Private Sub Text1_Click()
Dim a As BALLOONTIP
a.cbStruct = Len(a)
a.pszText = "fdc"
a.pszTitle = "fdc"

Debug.Print SendMessage(Text1.hwnd, EM_SHOWBALLOONTIP, 0&, a)
End Sub
The return value is 0. Thank you for your help.