Private Sub Form_Load() Label1.Caption = "可选项目" Label2.Caption = "选中项目" Command1.Caption = "删除" For i = 1 To 5
List1.AddItem "Item" & Str(i) Next iEnd Sub Private Sub List1_Click()
List2.AddItem List1.List(List1.SelCount - 1)
List1.RemoveItem List1.SelCount - 1 End Sub...