bonjour,
si tu crées 2 objets Étiquette1 et Étiquette2 dans ton formulaire,
voici un exemple de code que tu peux essayer
(Étiquette2 ) est ton bouton surbrillance sur mouse move,
alors que étiquette1 n'est là que pour faire le témoin visuel de l'exemple.
Private Sub Étiquette2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Étiquette1.Caption = "Touché" Étiquette2.ForeColor = &HFF0000 If X > 50 And X < Étiquette2.Width - 50 Then If Y > 50 And Y < Étiquette2.Height - 50 Then Étiquette1.Caption = "Coulé" Étiquette2.ForeColor = &HFF00FF End If End If End Sub
|