Italian [B4I] Abbassare la tastiera

Private Sub B4XPage_KeyboardStateChanged (Height As Float)
    If Height = 0 Then
        Dim SafeAreaBottom As Float = 0
    #If B4I
        SafeAreaBottom = B4XPages.GetNativeParent(Me).SafeAreaInsets.Bottom
    #End If
    
        xlbl_Save.Top = Root.Height - SafeAreaBottom - xlbl_Save.Height
        xlbl_Abort.Top = Root.Height - SafeAreaBottom - xlbl_Abort.Height
    Else
        xlbl_Save.Top = Root.Height - Height - xlbl_Save.Height
        xlbl_Abort.Top = Root.Height - Height  - xlbl_Abort.Height
    End If
End Sub

B4XPages.GetNativeParent(Me).ResignFocus

Private Sub CloseKeyboard
    Log("Oper DropDown")
    #if B4A
        Dim Ph As Phone
        Ph.HideKeyboard(Activity)
    #else if b4i
        Page1.RootPanel.As(NativeObject).RunMethod("endEditing:", Array(True))
    #End If
End Sub

Private Sub CloseKeyboard
    Log("Oper DropDown")
    #if B4A
        Dim Ph As Phone
        Ph.HideKeyboard(B4XPages.GetManager.GetTopPage.Parent.NativeType)
    #else if b4i
        Root.As(NativeObject).RunMethod("endEditing:", Array(True))
    #End If
End Sub