The following lines were added (+) and removed (-):
cboBoxName.Clear cboBoxName.ColumnCount = 2 cboBoxName.ListWidth = "13 cm" cboBoxName.ColumnWidths = "3 cm; 10 cm" cboBoxName.ColumnHeads = True cboBoxName.Clear cboBoxName.AddItem "P001" cboBoxName.List(0, 1) = "Product Name"