Android Question Change Orientation automatically only one time...

Dim screen As PreferenceScreen

screen.Initialize("Settings", "")
 
Dim catGeneral As PreferenceCategory

catGeneral.AddList("LockScreenOrientationMode", "Lock the screen in portrait or landscape mode", "Select to Lock the screen in portrait or landscape mode",  "Auto (Unlocked)", _
        Array As String("Auto (Unlocked)", "Portrait", "Landscape", "Reversed Portrait", "Reversed Landscape"))

screen.AddPreferenceCategory(catGeneral)

    Dim manager As PreferenceManager

    Dim setting_LockScreenOrientationMode As Int
....
Try
        Select manager.GetString("LockScreenOrientationMode")
            Case "Auto (Unlocked)"
                setting_LockScreenOrientationMode = -1
            Case "Landscape"
                setting_LockScreenOrientationMode = 0
            Case "Portrait"
                setting_LockScreenOrientationMode = 1
            Case "Reversed Landscape"
                setting_LockScreenOrientationMode = 8
            Case "Reversed Portrait"
                setting_LockScreenOrientationMode = 9
        End Select
    Catch
        setting_LockScreenOrientationMode=-1
    End Try

Sub Activity_Create(FirstTime As Boolean)

    Dim phone1 As Phone
    phone1.SetScreenOrientation (setting_LockScreenOrientationMode)
    ....

Dim p As Phone

If Activity.Width > Activity.Height Then

   p.SetScreenOrientation(0)
			
Else

   p.SetScreenOrientation(1)
			
End If