Sub Panel_Touch(SD As SignatureData, x As Int,y As Int, Action As Int)
If Action = 0 Then 'mouse down constant
px = x
py = y
Else
SD.Canvas.DrawLine(px, py, x, y, SD.SignatureColor, SD.SignatureWidth)
' Arrotonda gli angoli e riduce, il risultato è molto più uniforme, soprattutto con tratto abbastanza spesso
SD.Canvas.DrawCircle(px, py, SD.SignatureWidth/2, SD.SignatureColor, True, SD.SignatureWidth/2)
SD.Panel.Invalidate
px = x
py = y
End If
End Sub