Option Explicit
Private Sub Command1_Click()
End'结束程序
End Sub
Private Sub Form_Load()
With list1
AddItem ("金融")'给list1控件添加条目
AddItem ("会计")
AddItem ("营销")
AddItem ("管理")
AddItem ("财政")
AddItem ("法律")
AddItem ("旅游")
End With
End Sub
Private Sub List1_Click()
List2.AddItem list1.Text'把list1的点击条目添加到list2
list1.RemoveItem list1.ListIndex'移除list1中的点击条目
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024