在窗体上添加2个列表框List1和List2，添加1个按钮Command1
设置List1的Style 属性为1，注意：该属性只能在设计时改变。
代码如下，复制了就能用：
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
List2.Clear
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
List2.AddItem List1.List(i)
End If
Next i
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 8
List1.AddItem i
Next i
End Sub
在list1的右边的属性框里list属性里写广州，等名称
private sub command1_click()
list2.additem list1.text
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024