Me.List833.ColumnCount = 3
Me.List833.ColumnWidths = "1 cm;4.8 cm;1 cm"
Me.List833.RowSourceType = "Value List"
Me.List833.AddItem ("1;2;3")
'You can also add items using variables
'Example: Me.List833.AddItem (Ttest1 & "; " & Ttest2 & "; " & Ttest3)