Mouse as a pointer

[familia]

I will like to see the line moving when i draw a line from point1 to point2 using mouse options.
If someone can help, please ?

 

[ballisticnylon]

This should get you started:

[VB]
Dim startpoint As Point

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
startpoint.X = e.X
startpoint.Y = e.Y
End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If e.Button = MouseButtons.Left Then
Dim g As Graphics = Me.CreateGraphics

g.Clear(Me.BackColor)
g.DrawLine(Pens.Black, startpoint, New Point(e.X, e.Y))
g.Dispose()
End If
End Sub

Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
Dim g As Graphics = Me.CreateGraphics

g.Clear(Me.BackColor)
g.Dispose()
End Sub
[/VB]

 

[familia]

To: ballisticnylon

Thank for your code, but when mouse moveup, the line disappear.
I already find a solution using ControlPaint.DrawReversibleLine