oDummy = createobject('combobox') with oDummy .RowSourcetype = 1 && VAlue .RowSource = "Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec" dimension arrLines[.ListCount] for ix=1 to .ListCount arrLines[ix]=.List(ix) endfor endwith release oDummyPoor man's alines :)