Android Question Force Landscape for Tablet and Portrait for Phone

Private Sub InitForTablet
    Dim nativeActivity As JavaObject = GetContext
    nativeActivity.RunMethod("setRequestedOrientation", Array As Object(0)) 'force to landscape
    Activity.LoadLayout("tablet_main")
End Sub
Private Sub InitForPhone
    Dim nativeActivity As JavaObject = GetContext
    nativeActivity.RunMethod("setRequestedOrientation",Array As Object(1)) 'force to portrait
    Activity.LoadLayout("phone_main")
End Sub


Sub GetContext As JavaObject
    Dim jo As JavaObject
    jo.InitializeContext
    Return jo
End Sub

dim phonewidth, phoneheight as int
dim p as phone
phonewidth=GetDeviceLayoutValues.Width
   phoneheight=GetDeviceLayoutValues.Height
if phonewidth > phoneheight then
p.SetScreenOrientation(0)
else
p.SetScreenOrientation(1)

Public DeviceSize As Double


DeviceSize = lv.ApproximateScreenSize
If DeviceSize >= 6 Then
    ' tablet
Else
    ' phone
End If