vb listbox控件（含复选框），多选操作代码怎么写

Private Sub Command1_Click()
Dim i As Long
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
List1.RemoveItem (i) '删除选中项
End If
Next
End Sub本回答被提问者采纳

你可以用楼上的代码移除LIST的选项，要删除文件需要知道目录的位置，用KILL语句删除，修改上面的代码即可本回答被网友采纳

ListBox .MultiSelect = fmMultiSelectExtended这句话是让你的listbox可以多选（按住ctrl或者shift）
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
List1.RemoveItem (i) '删除选中项
End If
Next
循环遍历选中