RichTextbox. Get attributes of character under mouse cursor ?

[Chris]

Using VB6.

With a RichTextbox, I can get the position of the character under the mouse
pointer with an API call like: SendMessage(hWnd, EM_CHARFROMPOS, 0&, Pointl)
by passing the mouse x,y co-ordinates in the Pointl structure.

But does anyone know a way to get the *attributes* of the character (Bold,
Underline, etc) WITHOUT affecting the textbox in any way?

Any method that requires the character to be the selected text (like
EM_GETCHARFORMAT) is not suitable.

Chris.