Forms("KL").Controls("KL").MultiSelect = 0 ' Extended.
http://www.sql.ru/forum/1228786/izmenenie-svoystv-spiska-pri-pomoshhi-vba