tracé de ligne sur une image

j'ai un pb, je veux tracer une ligne sur une image à partir de 2 clics de souris.
j'ai utilisé l'api getcursopos mais la ligne ne se trace pas au bon endroit et elle est pas de la bonne taille.

Voici mon code :

Private Sub Image1_Click()
If (click = False) Then
click = True
Dim PNT_Position As POINTAPI
'on récupère la position du curseur
GetCursorPos PNT_Position
x1 = PNT_Position.X
y1 = PNT_Position.Y
Else
click = False
GetCursorPos PNT_Position
x2 = PNT_Position.X
y2 = PNT_Position.Y
Form2.Line (x1, y1)-(x2, y2)
End If

End Sub


de plus, si je déplace l'image, mes lignes ont disparues. Comment faire, pour qu'elles suivent le mvt.

Bonjour

"Form2.Line " : tu ne traces pas sur l'image mais sur la feuille.
Un contrôle Image n'a pas de méthode Line.
Utilise plutôt un contrôle Picture et le code suivant :

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Static Xdépart As Single, Ydépart As Single Static clic As Boolean If Not clic Then Xdép = X Ydép = Y clic = True Else Picture1.Line (Xdépart, Ydépart)-(X, Y) clic = False End If End Sub