Sub FullScreen(Active As Boolean, ActivityName As String)
Dim obj1 As Reflector
obj1.Target = obj1.GetMostCurrent(ActivityName)
obj1.Target = obj1.RunMethod("getWindow")
If Active Then
obj1.RunMethod2("addFlags",1024,"java.lang.int")
obj1.RunMethod2("clearFlags",2048,"java.lang.int")
Else
obj1.RunMethod2("addFlags",2048,"java.lang.int") obj1.RunMethod2("clearFlags",1024,"java.lang.int")
End If
End Sub