Android Question Smartphones with a notch

CreateResource(values, theme.xml,
<resources>
    <style name="CustomTheme" parent="@android:style/Theme.Holo.Light">
        <item name="android:windowLayoutInDisplayCutoutMode">shortEdges</item>
    </style>
</resources>)

    Dim iDisplayNotch As Int
    Dim NOTCH_NEVER As Int = 0
    Dim NOTCH_ALWAYS As Int = 1
    Dim NOTCH_LEFT As Int = 2
    Dim NOTCH_RIGHT As Int = 3
    Dim NOTCH_SIDE As Int = 4
    
    Dim LAYOUT_IN_DISPLAY_CUTOUT_MODE_ALWAYS As Int = 3          ' The window is always allowed to extend into the DisplayCutout areas on the all edges of the screen.
    Dim LAYOUT_IN_DISPLAY_CUTOUT_MODE_DEFAULT As Int = 0         ' The window is allowed to extend into the DisplayCutout area, only if the DisplayCutout is fully contained within a system bar. Otherwise, the window is laid out such that it does not overlap with the DisplayCutout area
    Dim LAYOUT_IN_DISPLAY_CUTOUT_MODE_NEVER As Int = 2             ' The window is never allowed to overlap with the DisplayCutout area
    Dim LAYOUT_IN_DISPLAY_CUTOUT_MODE_SHORT_EDGES As Int = 1    ' The window is always allowed to extend into the DisplayCutout areas on the short edges of the screen even if fullscreen or in landscape. The window will never extend into a DisplayCutout area on the long edges of the screen.
    Dim Ph as Phone

Sub GetNotchHeight As Int
    ' find if the display has a notch and return his height
    ' if no notch, return 0
    If SDKver < 28 Then Return 0
    Dim ctxt As JavaObject
    ctxt.InitializeContext

    Dim JO As JavaObject = ctxt.RunMethodJO("getWindow", Null)
    JO = JO.RunMethodJO("getDecorView", Null)
    JO = JO.RunMethodJO("getRootWindowInsets",Null)
    JO = JO.RunMethodJO("getDisplayCutout",Null)

    If JO.IsInitialized Then
        Log("This device has a notch")
        Dim i As Int = JO.RunMethod("getSafeInsetTop",Null)
        Log("Notch Height: " & i)
        Return i
    Else
        Log("This device does not have a notch")
        Return 0
    End If
End Sub

        If Ph.SdkVersion>= 28 Then
            Dim jo As JavaObject
            jo.InitializeContext
            jo = jo.RunMethod("getWindow", Null)
            jo.RunMethodJO("getAttributes", Null).SetField("layoutInDisplayCutoutMode",LAYOUT_IN_DISPLAY_CUTOUT_MODE_SHORT_EDGES)
            If GetNotchHeight > 0 Then
                bIsNotch = True
            Else
                bIsNotch = False
            End If
            If iDisplayNotch = NOTCH_NEVER Then
                jo.RunMethodJO("getAttributes", Null).SetField("layoutInDisplayCutoutMode", LAYOUT_IN_DISPLAY_CUTOUT_MODE_NEVER)
            Else
                jo.RunMethodJO("getAttributes", Null).SetField("layoutInDisplayCutoutMode",LAYOUT_IN_DISPLAY_CUTOUT_MODE_SHORT_EDGES)
            End If
        End If