Chiudere un ToolTip anticipatamente

Il ToolTip è una finestrina che viene mostrata quando il puntatore del mouse sta sul Controllo per alcuni secondi di seguito. Il ToolTip resta a sua volta visibile per circa 10 secondi. E' possibile farlo chiudere anticipatamente.

Nell'esempio seguente il ToolTip sarà eliminato dopo soli 4 secondi (si porrà sul Form anche l'oggetto Timer, impostando il suo ritardo a ms 1, affinché la sua partenza sia immediata):

Private a As Byte  
     

Public Sub Form_Open()  
     
  Button1.Tooltip = "Testo qualsiasi"  
     
  With Timer1  
   .delay = 1000  
   .Start  
  End With  
     
End
     

Public Sub Timer1_Timer()  
      
  Inc a  
      
  If a = 4 Then

' Annulliamo il "ToolTip", assegnandogli valore stringa "Null":
    Button1.Tooltip = Null
    a = 0

' Ripristiniamo il "ToolTip", altrimenti non sarebbe possibile farlo mostrare una seconda volta:
    Button1.Tooltip = "Testo qualsiasi" 

  Endif

' In alternativa, possiamo utilizzare a proprietà booleana ".ShowTooltips" della Classe "Application",
' tenendo presente, però, che quella proprietà impedisce il mostrarsi di ogni ToolTip eventualmente previsto nel codice.
' Per consentire nuovamente l'apparire del "ToolTip" sarà, dunque, necessario poi reimpostare quella proprietà a "True":
   If a = 4 Then   
 
' Impediamo il mostrarsi di ogni "ToolTip":
     Application.ShowTooltips = False
     a = 0
   Endif  
 
' Consentiamo nuovamente il mostrarsi di ogni "ToolTip": 
   Application.ShowTooltips = True  
      
End