再次遇到问题... - 编程论坛

1、窗体的标题栏显示“选课界面”，窗体上有两个列表框，左边是List1，右边是List2，其中List2中的列表项按字母顺序升序显示。窗体下方有一个文本框，名为Text1。请你：
1) 写出程序中需要的属性设置。
2) 编写程序，要求单击List1中的某一项时，该项显示在Text1中；双击List1中的某一项时，该项从List1中删除，添加至List2。当List中的内容已满5门时，不允许再添加并提示“超过5门课程，不能再选了！”

只有本站会员才能查看附件，请登录

程序代码：

Private Sub Form_Load()
List1.AddItem "Visual Basic程序"
List1.AddItem "数据结构"
List1.AddItem "操作系统"
List1.AddItem "硬件技术基础"
List1.AddItem "计算机网络"
List1.AddItem "多媒体技术"
List1.AddItem "c++程序设计"
End Sub
Private Sub List1_Click()
Text1.Text = List1.Text
End Sub
Private Sub List1_DblClick()
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) = True Then
List2.AddItem List1.Text
List1.RemoveItem i
End If
Next
If List2.ListCount >= 5 Then
MsgBox "超过5门课程，不能再选了!"
End If
End Sub

超过5门课程后，虽然提示了，但还是可以继续添加的。请问怎样解决的呀？？？？？