For Activity I do this:
B4X:
Sub cmbFontSize_SelectedIndexChanged (Index As Int)
Starter.TextSize=Starter.TextSizeMin+Index
function.setViewHeight(Activity)
Activity.Finish
StartActivity(Me)
End Sub