Question

一道vb简单操作题。。。。求答案！！！急！！！

.在名称为Form1的窗体上放置两个列表框，名称分别为List1和List2。在List1中添加"第一题"、"第二题"…"第八题"，并设置MultiSelect属性为2（要求在控件属性中设置实现）。再放置一个名称为Cmd1，标题为"复制"的命令按钮。程序运行后，如果单击"复制"按钮，将
List1中选中的内容(至少两项)复制到List2中。如果选择的项数少于2项，用消息框提示"请选择至少两项"。

Answer 1

Private Sub Command1_Click()
    If List1.SelCount < 2 Then
        MsgBox "请选择至少两项"
        Exit Sub
    End If
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) Then List2.AddItem List1.List(i)
    Next i
End Sub

Answer 2

答案。。。。。。