option explicit
private sub command1_click()
dim i as integer
if list1.selcount=1 then
   list1.removeitem list1.listindex
elseif list1.listcount > 1 then
  for i = list1.listcount - 1 to 0 step -1
    if list1.selected(i) then
       list1.removeitem i
   end if
  next i
end if
end sub


其实我主要是下面这个地方十分不理解``
for i = list1.listcount - 1 to 0 step -1
    if list1.selected(i) then
       list1.removeitem i
   end if
  next i

哪里不理解？

就是从列表后面倒着删除选定的项目

移除 选中的 项

option explicit
private sub command1_click()
dim i as integer
if list1.selcount=1 then
   list1.removeitem list1.listindex
elseif list1.listcount > 1 then
  for i = list1.listcount - 1 to 0 step -1   '移除选中的项目???
    if list1.selected(i) then
       list1.removeitem i
   end if
  next i
end if
end sub



list1.listcount 这个代表的意思是所有的项目是么```

其实我也就是想知道原理`
他是怎么删除选中的项目呢``
list1.listcount - 1 to 1 step -1
步长是-1``list1.listcount -1 是怎么回事``

list里的编号是从0开始的，listcount是总数，最大的编号就是listcount-1

谢谢各位的指教``感谢```