Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim lbl As Object
If Button = 1 Then ' si clic gauche
Set lbl = Controls.Add("Forms.Label.1")
With lbl
lbl.Left = X + Image1.Left - 1
lbl.Top = Y + Image1.Top - 1
lbl.Width = 2
lbl.Height = 2
lbl.BorderStyle = 0
lbl.BackColor = coloris_encours
End With
End If
End Sub