DIMENSION myItems[3,2] myItems[1,1] = "TAB" myItems[1,2] = 9 myItems[2,1] = ";" myItems[2,2] = 44 myItems[3,1] = "," myItems[3,2] = 59 WITH thisform.Combo1 .RowSourceType = 1 FOR i = 1 TO ALEN(myItems,1) .AddItem(" ") .AddListItem(myItems[i,1],i,1) .AddListItem(myItems[1,2],i,2) ENDFOR ENDWITH