vb里 list1.text表示选中的一项还是表示list里所有的文字

'删除选中list

for i = 0 to list1.listcount - 1

    if i = list1.listcount then exit for

    if list1.selected(i) then

    text1.text = replace(text1.text, list1.list(i) & vbcrlf, "")  //删除对应text里的行

    list1.remove(i)

    i = i - 1

    end if

next