Dim jo As JavaObject = Activity
Dim Window As JavaObject = jo.RunMethodJO("getContext", Null).RunMethod("getWindow", Null)
Window.RunMethod("addFlags", Array As Object(2))
Dim dimAmount As Float = 0.8
Window.RunMethod("setDimAmount", Array As Object(dimAmount))