Global
private X1 as float=0
private Y2 as float=0
private Fisrttouch as boolean=True
Private Sub YourPanel_Touch (Action As Int, X As Float, Y As Float)
if Fisrttouch=true then
X1=X
Y1=Y
Fisrttouch=false
else
Dim cnv As Canvas
cnv.Initialize(YourPanel)
cnv.DrawLine(x1,y1,X,Y,Colors.Red, 5dip) '5dip stoke width
Fisrttouch=true
end if
end sub