Sub CanvasRoutineSub
'Draw canvas sub
Dim CanvasMain As Canvas
CanvasMain.Initialize(Activity)
SetAntiAlias(CanvasMain)
'Put the rest of your canvas code here
End Sub
'Set Anti Alias
Sub SetAntiAlias (Canvas1 As Canvas)
Dim Ref As Reflector
Ref.Target = Canvas1
Dim NativeCanvas As Object = Ref.GetField("canvas")
Dim PaintFlagsDrawFilter As Object = Ref.CreateObject2("android.graphics.PaintFlagsDrawFilter", Array As Object(0, 1), Array As String("java.lang.int", "java.lang.int"))
Ref.Target = NativeCanvas
Ref.RunMethod4("setDrawFilter", Array As Object(PaintFlagsDrawFilter), Array As String("android.graphics.DrawFilter"))
End Sub