[Vsual Basic 程序代码] Private Sub CmdSelect_Cliek() For i = O To List2.ListCount - 1 If Listl.Text = List2.List(i) Then Exit Sub ’不要重复选择 Next i List2.Addltem (1) ’在List2中增添List1中所选的项 End Sub Private Sub CrndSelAll_Click() List2.Clear ’先删除List2中的已有项 For i = 0 To (2) ’对List1中所有各项做循环处理 List2.Addltem (3) ’将该项增添到 List2中 Next i End Sub Private Sub CmdDelete_Cliek() If List2.Listlndex >= O Then ’如果List2中有选中的项,List2.Removeltem (4) ’则删除所选的项 End If End Sub Private Sub CmdDelAll_Cliek() (5) End Sub