'add this to Class_Globals
Private offset_before_keyboard As Float = 0
Private Sub B4XPage_KeyboardStateChanged(Height As Float)
If Height > 0 Then
offset_before_keyboard = svTest.ScrollOffsetY 'fill this variable here with the current offset
svTest.ScrollTo(0, svTest.ScrollOffsetY + Height, False)
'NewHight = svTest.ScrollOffsetY + Height
End If
End Sub
'scroll to this offset
Private Sub txtEntry1_EnterPressed
txtEntry1.RequestFocus
B4XPages.GetNativeParent(Me).ResignFocus
svTest.ScrollTo(0, offset_before_keyboard, False)'scroll to the offset
End Sub