#Region IsDeviceFoldable
Private Sub IsDeviceFoldable As Boolean
Dim Sensor_Hinge As String = "android.hardware.sensor.hinge_angle"
Try
Dim jo As JavaObject
jo.InitializeContext
Dim IsFoldable As Boolean = False
IsFoldable = jo.RunMethodJO("getPackageManager", Null).RunMethod("hasSystemFeature", Array(Sensor_Hinge))
LogColor($"IsDeviceFoldable ${IsFoldable}"$, Colors.Red)
Return IsFoldable
Catch
LogColor($"IsDeviceFoldable Failed - ${LastException.Message}"$, Colors.Red)
Return False
End Try
End Sub
#end Region