Private Sub Command1_Click()
Dim k%
For k = List1.ListCount - 1 To 0 Step -1
If List1.Selected(k) = True Then
List2.AddItem List1.List(k)
List1.RemoveItem k
End If
Next k
End Sub
Private Sub Command2_Click()
Dim k%
Text1 = "已经选中的城市有:"
For k = 0 To List2.ListCount - 1 Step 1
Text1 = Text1.Text & " " & List2.List(k)
Next k
End Sub
List2.AddItem List1.List(k)
List1.RemoveItem k 一个用为什么List1.List(k) 一个用k 都用List1.List(k)不行么