ok... perhaps just a few minutes.. .:)
* add this property to the window
Public Property points(-1) as pair
* change mouseDOWN to this
points.append x:y Self.Invalidate Return True
change mouseDRAG to this
points.append x:y Self.Invalidate
change PAINT to this
Dim i As Integer If points.Ubound<1 Then Return g.penwidth=5 g.ForeColor=Color.blue For i=0 To points.Ubound-1 g.drawline points(i).Left,points(i).Right,points(i+1).Left,points(i+1).Right Next i
Super smooth, no voids