代码不可能报错
Dim lst As winform.listbox=e.form.controls("l")If lst.selectedindex>=0 lst.items.removeat(lst.selectedindex)End If