Crear texto de ayuda

[xavi]

Palabras clave: mostrar, ayuda, control
Autor: Búho
Extraído de: La web del Búho

Objetivo
Mostrar ayuda en un campo de texto aprovechando el ControlTipText

En el evento Timer del formulario, pon este codigo:

Código [Seleccionar] Expandir

Private Sub Form_Timer()
  On Error Resume Next
  Dim Micontrol As Control
  Set Micontrol = Screen.ActiveControl
  Me.TxtAyuda =NZ(Micontrol.ControlTipText,"")
End Sub


En el TxtAyuda independiente, se te mostrará lo que hayas escrito en la propiedad ControlTipText de los controles que mencionas. Puedes poner un intervalo al cronometro de 100, por ejemplo.
Ese codigo se podría perfeccionar mucho mas, excluyendo tipos de control que no sean cuadros de texto, por ejemplo. Pero tal cual esta, funcionará