Sub img_body_Touch(viewtag As Object, action As Int, X As Float, Y As Float, motionevent As Object) As Boolean
Dim IV As ImageView = Sender
Dim Can As Canvas
Dim jo As JavaObject = motionevent
Dim X1 As Int = jo.RunMethod("getX", Array As Object(0))
Dim Y1 As Int = jo.RunMethod("getY", Array As Object(0))
X1 = X1 * (bitmap1.Width/(IV.Width))
Y1 = Y1 * (bitmap1.Height/(IV.Height))
'Log("test: " & IV.Width & " : " & IV.Height)
Log("X1= " & X1 & " Y1= " & Y1)
' 'Can.Initialize(IV)
If Y1 <= bitmap1.Height Then
Dim Color As Int = bitmap1.GetPixel(X1*(bitmap1.Width/IV.Width),Y1*(bitmap1.Height/IV.Height))
Log("color: " & Color)
If Color = -43174 Then
ToastMessageShow("ROUGE",False)
Else if Color = -9699497 Then
ToastMessageShow("VERT",False)
Else if Color = -11021569 Then
ToastMessageShow("BLEU",False)
Else if Color = -149161 Then
ToastMessageShow("JAUNE",False)
End If
End If
Return True
End Sub