Question

VB列表框选择2个以上复制到列表框2里 如果少于2个需要消息框提示“请选择至少两项”怎么写呢 我不会了

VB列表框选择2个以上复制到列表框2里 如果少于2个需要消息框提示“请选择至少两项”怎么写呢 我不会了 希望大侠你能帮助我下。能收徒就更好了^ ^Private Sub Cmd1_Click()
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()
List1.AddItem "第一题"
List1.AddItem "第二题"
List1.AddItem "第三题"
List1.AddItem "第四题"
List1.AddItem "第五题"
List1.AddItem "第六题"
List1.AddItem "第七题"
List1.AddItem "第八题"
End Sub
这个是我写的 但是不符合题目要求 请帮我修改下

Answer 1

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