Sub DrawTextNoAA (cvs As Canvas, Text As String, X As Float, Y As Float, Font As Typeface, TextSize As Float, Color As Int, Alignment As String)
Dim jo As JavaObject = cvs
Dim canvas As JavaObject = jo.GetField("canvas")
Dim paint As JavaObject = jo.GetField("paint")
paint.RunMethod("setTextAlign", Array(Alignment))
TextSize = TextSize * GetDeviceLayoutValues.Scale
paint.RunMethod("setTextSize", Array(TextSize))
paint.RunMethod("setColor", Array(Color))
Dim StrokeWidth As Float = 0
paint.RunMethod("setStrokeWidth", Array(StrokeWidth))
paint.RunMethod("setStyle", Array("FILL"))
paint.RunMethod("setTypeface", Array(Font))
canvas.RunMethod("drawText", Array(Text, X, Y, paint))
End Sub