Este, es el tipo de ayuda que aparece cuando pulsamos el botón derecho del Ratón encima de un control, y aparece la pregunta ¿ Qué es esto ?.

Para este tipo de ayuda interactiva, debemos indicar a la propiedad WhatsThisHelp del formulario a True. Esta propiedad, establece si la ayuda, utiliza la ventana emergente ¿ Qué es esto ?, o indica si la ayuda se realiza a través de la tecla F1 utilizando el valor introducido en HelpContextID.
Indicando el valor de la propiedad a True, desactiva la ayuda a través de la tecla F1.

El siguiente paso, es indicar al control que queremos que nos muestre la ayuda, que página de la ayuda que hemos creado tiene que mostrarnos.
Para ello, en la propiedad WhatsThisHelpID, debemos indicar el número que hace referencia a la página de la ayuda, el cual lo hemos establecido en el archivo de ayuda HPJ en el apartado Map... en Declaraciones del archivo de Ayuda.

Luego, tenemos que crear un nuevo menú a través del Editor de Menús.
Aquí vamos a crear un menú con el nombre ‘Ayuda’, el cual contendrá en su interior un submenú con el Caption ‘¿ Qué es esto ?’, y con el nombre ‘QueEsEsto’. El menú ‘Ayuda’ tiene que estar con la propiedad Visible desactivada.

Ahora vamos a ver el código a utilizar:

En el código del formulario, en Declaraciones indicamos:

Dim ControlUtilizado as Control

Esta variable, obtendrá el control que solicita la ayuda.

En el evento MouseUp del control que queremos que tenga la ayuda, introducimos el siguiente código:

If Button = vbRightButton Then
      Set ControlUtilizado = Label1(Index)
      PopupMenu Ayuda
End If
Set ControlUtilizado = Nothing

If Button = vbRightButton Then
Determina el botón pulsado. En este caso, si se pulsa el botón derecho del ratón.

Set ControlUtilizado = Label1(Index)
Capturamos el control que solicita la ayuda.
Tienes que sustituir Label1 por el nombre que hayas colocado al control.

PopupMenu Ayuda
Mostramos el menú de la ayuda que acabamos de crear con el nombre ‘Ayuda’, el cual nos mostrara el menú ¿ Qué es esto ?

Set ControlUtilizado = Nothing
Vaciamos la variable

En el evento Click del menú QueEsEsto, colocaremos:

ControlUtilizado.ShowWhatsThis
Activara la ayuda.