Llenamos el comboBox cbociclo con el total de ciclos en la propiedad items.add(); y para mostrar la lista de los cursos utilizo el control ListBox lsbcurso, y para llenarlo tambien uso la propiedad items.add()
El código sería algo así:
Public Class ListaCursos
Private Sub ListaCursos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cbociclo.Items.Add("Primer Ciclo")
cbociclo.Items.Add("Segundo Ciclo")
cbociclo.Items.Add("Tercer Ciclo")
cbociclo.Items.Add("Cuarto Ciclo")
cbociclo.Items.Add("Quinto Ciclo")
cbociclo.Items.Add("Sexto Ciclo")
End Sub
Private Sub cbociclo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbociclo.SelectedIndexChanged
Select Case cbociclo.SelectedIndex
Case 0
lsbcurso.Items.Clear()
lsbcurso.Items.Add("Matemática I")
lsbcurso.Items.Add("Ingles")
lsbcurso.Items.Add("Redacción Técnica")
lsbcurso.Items.Add("Office 2007")
Case 1
lsbcurso.Items.Clear()
lsbcurso.Items.Add("Matematica II")
lsbcurso.Items.Add("Diseño de Base de datos")
lsbcurso.Items.Add("Algoritmos")
lsbcurso.Items.Add("Program. orientada a objetos")
Case 2
lsbcurso.Items.Clear()
lsbcurso.Items.Add("SGBD")
lsbcurso.Items.Add("Visual Basic.Net 2005")
lsbcurso.Items.Add("Estadistica")
lsbcurso.Items.Add("Macromedia FLASH")
lsbcurso.Items.Add("Administración")
Case 3
lsbcurso.Items.Clear()
lsbcurso.Items.Add("C#")
lsbcurso.Items.Add("Contabilidad y Costos")
lsbcurso.Items.Add("Macromedia Dreanweaver")
lsbcurso.Items.Add("Diseño gráfico")
Case 4
lsbcurso.Items.Clear()
lsbcurso.Items.Add("Sistemas Operativos")
lsbcurso.Items.Add("Redes")
lsbcurso.Items.Add("php y Mysql")
lsbcurso.Items.Add("Marketing")
Case 5
lsbcurso.Items.Clear()
lsbcurso.Items.Add("Aspnet")
lsbcurso.Items.Add("Desarrollo de Proyecto")
lsbcurso.Items.Add("Implementacion de redes")
lsbcurso.Items.Add("Ing. de Software")
End Select
End Sub
End Class