A.Hide B.Visible C.Enabled D.Checked
A.List1.AddItem "XXX",3 B.List1.AddItem "XXX",2 C.List1.AddItem 3,"XXX" D.List1.AddItem 2,"XXX"
A.List1.RemoveItem List1.ListCount B.List1.Clear C.List1.List(List1.ListCount-1)= "" D.List1.RemoveItem List1.ListCount-1