I think i got it. But it is not 100% clean i think. This code move the panel bottom to the top of the Keyboard
B4X:
Dim ff As Int = pnl_ground.CalcRelativeKeyboardHeight(Height)
Dim ff2 As Int = Page1.RootPanel.Height - pnl_ground.Top
pnl_ground.Top = ff2 - ff +135dip
Sub page_KeyboardStateChanged (Height As Float)
Dim tmp_value as float = page.RootPanel.Height -Height
mypanel.Top = newrootheight - mypanel.Height
End Sub