
'Set the column widths in the load of the form
MockCombo1.SetColumns 1440, 1500

'Clear data from control
MockCombo1.ClearData

'Load data into control
MockCombo1.AddData "T" & a * 5, "Test" & a * 2, Test3, Test4

'Change the column order
 MockCombo1.OrderColumns 1, 2, 3, 4

'Get the selected value from control
 YourVariable = MockCombo1.Caption

'Display a second field in selected box (optional)
 MockCombo1.SecondSubItem = 2

'Get the selected value from control all fields
Dim Col1 As String
Dim Col2 As String
Dim Col3 As String
Dim Col4 As String
Col1 = MockCombo1.ColValueArray(0)
Col2 = MockCombo1.ColValueArray(1)
Col3 = MockCombo1.ColValueArray(2)
Col4 = MockCombo1.ColValueArray(3)

    'Set the column widths in the load of the form
MockCombo1.SetColumns 1440, 1500, 1440, 0

'Clear data from control
MockCombo1.ClearData
Dim a As Integer
For a = 1 To 10
'Load data into control
MockCombo1.AddData "T" & a * 5, "Test" & a * 2
Next
'Change the column order
 MockCombo1.OrderColumns 1, 2, 3

'Get the selected value from control
 YourVariable = MockCombo1.Caption