SetApplicationAttribute(android:supportsRtl, "true")

Sub ForseRtlSupported
Dim j,jo As JavaObject
jo.InitializeStatic ("android.view.View")
If j.InitializeStatic ("android.os.Build$VERSION").GetField ("SDK_INT") > 16 Then
j.InitializeContext.RunMethodJO("getWindow",Null).RunMethodJO("getDecorView",Null).RunMethod ("setLayoutDirection",Array(jo.GetField ("LAYOUT_DIRECTION_RTL")))
End If
End Sub

Sub ForceRtlSupported4View(View As View)
Dim jA,jos As JavaObject
jos.InitializeStatic ("android.view.View")
If jA.InitializeStatic ("android.os.Build$VERSION").GetField ("SDK_INT") > 16 Then
jA = View
jA.RunMethod ("setLayoutDirection",Array(jos.GetField ("LAYOUT_DIRECTION_RTL")))
End If
End Sub