Sub ShowToastAt(x As Int, y As Int, text As String, longDuration As Boolean)

  Dim duration As Int
  If longDuration = True Then
  duration = 1
  Else
  duration = 0
  End If
   Dim ctxt As JavaObject
   ctxt.InitializeContext
  Dim toastJO As JavaObject
  toastJO = toastJO.InitializeStatic("android.widget.Toast").RunMethod("makeText", Array(ctxt, text, duration))
  toastJO.RunMethod("setGravity", Array(Bit.OR(Gravity.TOP, Gravity.LEFT), x, y))
  toastJO.RunMethod("show", Null)

End Sub