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

 做个确定按钮，执行如下代码

Dim cbq As WinForm.ComboBox = e.Form.Controls("combobox3")
If cbq.SelectedIndex = cbq.Items.Count-1 Then
    msgbox("最后一行")
Else
    cbq.SelectedIndex = cbq.SelectedIndex+1
End If