Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
Private B4XComboBox1 As B4XComboBox
Dim lst As List=Array As String("A", "B", "C")
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("1")
B4XComboBox1.SetItems(lst)
B4XComboBox1.SelectedIndex=1
B4XComboBox1.cmbBox.TextSize=20
End Sub
Private Sub Button1_Click
' B4XComboBox1.cmbBox.Clear
' B4XComboBox1.SetItems(lst)
' B4XComboBox1.SelectedIndex=1
B4XComboBox1.cmbBox.TextSize=14
End Sub