Sub Zello_Touch (Action As Int, X As Float, Y As Float)
If Action = Activity.ACTION_DOWN Or Action = Activity.ACTION_UP Then
Dim ZelloIntent As Intent
If Action = Activity.ACTION_DOWN Then
ZelloIntent.Initialize2("com.zello.ptt.down", 0)
Else If Action = Activity.ACTION_UP Then
ZelloIntent.Initialize2("com.zello.ptt.up", 0)
End If
ZelloIntent.PutExtra("com.zello.stayHidden", "true")
Dim PH As Phone
PH.SendBroadcastIntent(ZelloIntent)
Log(ZelloIntent)
End If
End Sub