* Commandbutton.click ThisForm.List1.additem("xxx"+ltrim(str(ThisForm.List1.listcount+1)),; ThisForm.List1.listcount+1,1) ThisForm.List1.list(ThisForm.List1.listcount,2) = "yyy"+; ltrim(str(ThisForm.List1.listcount))