如果是单行选择：
Private Sub Command1_Click()
Dim i&
i = List1.ListIndex
List1.List(i) = Mid$(List1.List(i), 9)
End Sub
如果是多行选择：
Private Sub Command1_Click()
Dim i&
For i = 0 To List1.ListCount - 1
If (List1.Selected(i)) Then
List1.List(i) = Mid$(List1.List(i), 9)
End If
Next
End Sub
list1.list=left(list1.list,8,len(list1.list)-8)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024