Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.Picture = LoadPicture("c:\Chemin\dessin1.jpg") End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.Picture = LoadPicture("c:\Chemin\dessin2.jpg") End Sub