Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'couleur originale Me.Label1.ForeColor = RGB(0, 0, 0) End Sub Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Labelnombrefacture.ForeColor = RGB(255, 120, 56) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question