Trace de ligne

RE, en version ultra courte.

Qqun peut-il tester ce code pour me dire s'il reste des "résidus" sur
l'ecran sur move de la souris chez moi ça marche pas , ou alors j'ai
loupé qq chose.

Christophe

Private mx1 As Single
Private mx2 As Single
Private my1 As Single
Private my2 As Single
Private firstc As Boolean


Private Sub Form_Load()
firstc = True
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)

If firstc Then
mx1 = X
my1 = Y
mx2 = X
my2 = Y
firstc = False
Picture1.DrawMode = 10
Else
Picture1.DrawMode = 13
firstc = True
End If

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)

If Not firstc Then
Picture1.Line (mx1, my1)-(mx2, my2), RGB(255, 0, 0)
mx2 = X
my2 = Y
Picture1.Line (mx1, my1)-(mx2, my2), RGB(255, 0, 0)
End If
End Sub