' ModProjUtils - Code module.
Public Sub SetStatusBarColor(Context As Object, Act As Activity, clr As Int)
Dim p As Phone
If p.SdkVersion >= 21 Then
Dim jo As JavaObject = Context
Dim window As JavaObject = jo.RunMethodJO("getWindow", Null) '<<<< how to call it from outside the activity
window.RunMethod("addFlags", Array (0x80000000))
window.RunMethod("clearFlags", Array (0x04000000))
window.RunMethod("setStatusBarColor", Array(clr))
End If
If p.SdkVersion >= 23 Then
jo = Act
jo.RunMethod("setSystemUiVisibility", Array(8192))
End If
End Sub