Visualizza wikitesto di Chiudere un ToolTip anticipatamente

Il ''ToolTip'' è una finestrina, associata ad un Controllo grafico, che viene mostrata quando il puntatore del mouse sta fermo sul Controllo medesimo 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'' è associato ad un ''Button'' posto sul ''Form'', e sarà eliminato dopo soli 4 secondi dall'entrata del puntatore del mouse nel ''Button'' (si porrà sul ''Form'' anche l'Oggetto ''Timer'':
 Private b As Byte  
      
 
 Public Sub Button1_Enter()
 
  Button1.Tooltip = "Testo qualsiasi"
 
  With Timer1  
   .delay = 1000  
   .Start  
  End With  
      
 End
 
 
 Public Sub Button1_Leave()
 
  b = 0
 
 End
 
 
 Public Sub Timer1_Timer()  
 
  Inc b
  Me.Title = b
 
 <FONT color=#006400>' ''Fa durare il "ToolTip" soltanto 4 secondi:''</font>
  If b == 4 Then
    Timer1.Stop
 <FONT color=#006400>' ''Annulla il "ToolTip", assegnandogli valore stringa "Null":''</font>
    Button1.Tooltip = Null
    b = 0
  Endif
 
 End
Tale codice è ovviamente utile per aumentare o comunque più in generale per impostare la durata della comparsa del ''ToolTip''.