Dim oForm As SAPbouiCOM.Form
Dim oComboBox As SAPbouiCOM.ComboBox
'// Add a new form
Set oForm = SBO_Application.Forms.Add("SimpleForm")
'// Add a UserDataSource to the form
oForm.DataSources.UserDataSources.Add "CombSource", dt_SHORT_TEXT, 20
'//*************************
'// Adding a ComboBox item
'//*************************
Set oComboBox = oForm.Items.Add("ComboBox1", it_COMBO_BOX).Specific
'// Bind the ComboBox to the defined UserDataSource object
oComboBox.DataBind.SetBound True, "", "CombSource"
'// Set the valid values
oComboBox.ValidValues.Add "1", "Combo Value 1"
oComboBox.ValidValues.Add "2", "Combo Value 2"
oComboBox.ValidValues.Add "3", "Combo Value 3"