Sub PZ_Click (TouchData As TouchData)
NumView = TouchData.Tag
ToastMessageShow(NumView & TAB & TouchData.X & " " & TouchData.Y & TAB & imv.Width & " " & imv.Height ,False)
Dim c As Canvas
c.Initialize(imv)
c.DrawCircle(TouchData.X,TouchData.y,10dip,Colors.Red,True,5dip)
lv.AddSingleLine("Circle at " & TouchData.X & " " & TouchData.y & " TAG: " & NumView)