Bonsoir à tous,

Afin de guider les futurs utilisateur du petit classeur que je viens de finir de coder, j'ai maintenant l'intention de mettre des zones de texte explicatives lorsque l'on passe la souris sur un objet.
Voilà ce que j'ai réussis à bricoler mais ça fonctionne que quand ça le veux bien

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub CommandButton5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
 
Dim txt, d!, i!, n%
 
txt = Array("coucou")
 
d = 2
i = 4 * Y / (Me.Text1.Height)
n = Int(i)
 
 Me.Text1.Visible = X > d And X < Me.Text1.Width - d And Y > d And Y < Text1.Height - d And i - n < 0.7
 
 
 
End Sub
le texte apparait parfois mais pas toujours et surtout il oublis souvent de disparaitre quand la souris s'en va plus loin...

Existe-t-il une solution à mon problème ?

merci pour votre aide