Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Static n 'mémorise la variable
Dim test As Boolean, PauseTime, Start
n = n + 1
test = X < 10 Or X > CommandButton1.Width - 10 Or Y < 10 Or Y > CommandButton1.Height - 10
If n = 1 And Not test Then
If CommandButton1.BackColor <> RGB(255, 167, 38) Then CommandButton1.BackColor = RGB(255, 167, 38)
TextBox1.Visible = True
PauseTime = 2 ' Définit la durée.
Start = Timer ' Définit l'heure de...