' Clears all items from the combo box.
Public Sub Clear
#If B4A
mCmbBox.Clear
#Else If B4J
mCmbBox.Items.Clear
#Else If B4i
If mItems.IsInitialized = False Then mItems.Initialize
mItems.Clear
mSelectedIndex = -1
If mBtn.IsInitialized Then mBtn.Text = ""
#End If
End Sub