Sub Activity_Create(FirstTime As Boolean)
Do While GetOrientation = 3
xui.MsgboxAsync("Please rotate the device", "Orientation problem")
Wait For MsgBox_Result (Result As Int)
Loop
End Sub
Private 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("getOrientation")
End Sub