Sub pnl_notePanel_Touch(Action As Int, tx As Float, ty As Float)
Select Action
Case 1
If tx > 85%x Then
btn_nextPanel_Click
End If
Case 0
x1 = tx
y1 = ty
cnvs_note.DrawCircle(x1, y1, 5dip, LineColor, True, 1dip)
pnl_notePanel.Invalidate3(x1 - 7dip, y1 - 7dip, x1 + 7dip, y1 + 7dip)
Case 2
x2 = tx
y2 = ty
cnvs_note.DrawLine(x1, y1, x2, y2, LineColor, 10dip)
cnvs_note.DrawCircle(x2, y2, 5dip, LineColor, True, 1dip)
pnl_notePanel.Invalidate3(Min(x1, x2) - 7dip, Min(y1, y2) - 7dip, Max(x1, x2) + 7dip ,Max(y1, y2) + 7dip)
x1 = x2
y1 = y2
End Select
End Sub