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