Hola

En un formulario he colocado un botón simulando un botón para Ayuda, después de haciendo clic en él y clic en cualquier otro control, se muestra un mensaje con explicación sobre dicho control.
Resulta que, en el caso de los combos, controlo esta situación a través del evento ‘DropDown’ y funciona perfecto, PERO… al dar clic en él, se despliega la lista del combo.
Lo que necesito es que, después de dar clic en el botón de Ayuda, al dar clic en el combo, la lista no se despliegue. (exactamente lo que está en negrita es lo que necesito).

Encontré algo al respecto utilizando la API ‘SendMessageLong’:

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,
ByVal lParam As Long) As Long

Y para plegar la lista:
plegar = SendMessageLong(NombreCombo.hwnd, &H14F, False, 0)

Lo puse en el evento ‘DropDown’ del combo, pero no resultó.

¿Alguna idea de cómo evitar que se despliegue la lista del combo?

__________________
Saludos
Desde La Habana
Cuba