vb 里如何将list1里的数据,导入到list2里面,重点是：顺便将list1中的删除

Public Function CopyListToList(list_s As ListBox, list_d As ListBox, Optional lstClear As Boolean = True, Optional dstClear As Boolean = False)

Dim i As Integer
If lstClear = True Then
''是否清除目的控件中已经数据项
list_d.Clear
End If
For i = 0 To list_s.ListCount - 1
'''复制源数据项到目的数据项
With list_d
.AddItem (list_s.List(i))
End With
Next
If dstClear = True Then
'清楚源数据
list_s.Clear
End If
End Function

给你一个例子，自己看一下：

Private Sub Command1_Click()
For i = 0 To List1.ListCount
List2.AddItem List1.List(i)
Next i
List1.Clear
End Sub
Private Sub Form_Load()
For i = 1 To 5
List1.AddItem Str(i)
Next i
End Sub