先设置list的MultiSelect属性= 1在最下面加一个空行 也选中 list.additem ""然后选择空行List1.Selected(i) = True那么虚线就没了 因为LIST的列表项总是比实际的多一个空行所以那个效果就不见了
