Sub panCanvas_Touch (Action As Int, X As Float, Y As Float)
Select Case Action
Case panCanvas.ACTION_DOWN
x1 = X
y1 = Y
x2 = X
y2 = Y
xo = X
yo = Y
Case panCanvas.ACTION_MOVE
x2 = X
y2 = Y
cvsFirma.DrawLine(x1,y1 ,x2,y2 ,Colors.Black,2dip)
x1 = X
y1 = Y
Case panCanvas.ACTION_UP
If xo = x And yo = y Then
cvsFirma.DrawCircle( X,Y, 2dip,Colors.Black,True,2dip)
End If
End Select
panCanvas.Invalidate
End Sub