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


谢谢大家帮我修改,就是“该项从List1中删除，添加至List2”做不出.

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

后来果然想明白了...先添加再删除...~

新手来学习了~~

当List中的内容已满5门时，不允许再添加并提示“超过5门课程，不能再选了！”

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

顶顶。只为更快知道答案ths