主题：列表项自动动下移并显示

Dim li As String
For i As Integer = 1 To val(e.Sender.value)
Dim lbl As String = "第" & trim(str(i)) & "考试室|"
li = li & lbl
Next
Dim cbq As WinForm.ComboBox = e.Form.Controls("combobox3")
cbq.ComboList = li

老师，我设计一个依次安排每个考试室人数，想设置好第1考试确定后让cbq的列表自动显示第2考试室，该怎么能实现，谢谢