Sub FreezeOrientation
Dim Orient As Int
Select GetOrientation
Case 0
Orient = 1 'Portrait
Case 1
Orient = 0 'Landscape
Case 2
Orient = 9 'Reverse Portrait
Case 3
Orient = 8 'Reverse Landscape
End Select
PH.SetScreenOrientation(Orient)
End Sub
Sub GetOrientation As Int
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "window", "java.lang.String")
r.Target = r.RunMethod("getDefaultDisplay")
Return r.RunMethod("getRotation")
End Sub
Sub ReleaseOrientation
PH.SetScreenOrientation(-1)
End Sub