- 'On affecte ce code à Form1
-
- Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
- Picture1.BackColor = &HFF&
- End Sub
-
- ' et celui-ci à Text1
-
- Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
- Picture1.BackColor = &H8000&
- End Sub
'On affecte ce code à Form1
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.BackColor = &HFF&
End Sub
' et celui-ci à Text1
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.BackColor = &H8000&
End Sub