贴来的：
Private Sub ListBox1_Change()
Dim Mydata()
AA = ListBox1.ListCount - 1
ReDim Mydata(AA, 1)
Mydata = ListBox1.List()
ListBox2.List() = Mydata
For i = ListBox1.ListCount - 1 To 0 Step -1
If Not ListBox1.Selected(i) Then ListBox2.RemoveItem i
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024