Sub SetAntiAlias (c AsCanvas, Active AsInt)
' Active = 0 filter OFF
' Active = 1 filter ON
Dim r AsReflector
Dim NativeCanvas AsObject
r.target = c
NativeCanvas = r.GetField("canvas")
Dim PaintFlagsDrawFilter AsObject
PaintFlagsDrawFilter = r.CreateObject2("android.graphics.PaintFlagsDrawFilter", _
ArrayAsObject(0, Active), ArrayAsString("java.lang.int", "java.lang.int"))
r.target = NativeCanvas
r.RunMethod4("setDrawFilter", ArrayAsObject(PaintFlagsDrawFilter), ArrayAsString("android.graphics.DrawFilter"))
End Sub