For i = 0 To Pn.NumberOfViews - 1
Dim v As B4XView = Pn.GetView(i)
If V Is EditText Then
V.TextSize=TextSize
Else If V Is Spinner Then
Dim Sp As Spinner = V
Sp.TextSize = TextSize
Else If v.Tag Is B4XComboBox Then
Dim cb As B4XComboBox = v.Tag
cb.cmbBox.TextSize = TextSize
End If
Next