Public Function SelectFirstListVal (
cboBox As Control,
Optional ZeroIsEmpty As Boolean = False,
Optional ForceSelect As Boolean = False
) As Boolean
If the combo has no selected value, select the first row.
Consider a zero value as no selected value
Force selection of the first row, even if a value is selected
Dim b As Boolean
b = xf.Controls.SelectFirstListVal(cboBox)
b = xf.Controls.SelectFirstListVal(cboBox, ZeroIsEmpty, ForceSelect)
SelectFirstListVal(cboTest)