# Replace the Spinner with a B4XComboBox in the designer
# E.g. we have:
Dim sp as Spinner
Dim cmb as B4XComboBox
# Replace initialisation
sp.Clear
sp.Add("Entry 1")
sp.add("Entry 2")
# with
cmb.SetItems(Array As String("Entry 1", "Entry 2"))
# If you have a List with the data either, you can use it directly with SetItems.
# If you need the old Clear/Add thing, you can
cmb.cmbBox.Clear
cmb.cmbBox.Add("Entry")
# Since it is not possible to set the TextSize in the designer, you have to
cmb.cmbBox.TextSize = 14
# To set Visible or Enabled you have to
cmb.mBase.Visible = True
cmb.mBase.Enabled = False
# SelectedIndex is the same:
cmb.SelectedIndex = sp.SelectedIndex
# Instead of
Sub sp_ItemClick (Position As Int, Value As Object)
End Sub
#you use
Sub cmb_SelectedIndexChanged (Position As Int)
End Sub