Visual Basic.NET - ComboBox

Saludos a todos los que visitan esta pagina, es de gran ayuda para novatos que nos encanta la programacion como a mi.

Tengo un problema con los ComboBox, mi pasatiempo es hacer programas y en uno de los programas que estoy haciendo necesito que cuando elija una opcion en el combo 1 automaticamente aparescan opciones en el combo 2 y cuando elija otra opcion en el combo 1 me limpie el combo 2 y ponga otras opciones asi sucesivamente.

Si alguien me puede ayudar se lo agradeceria mucho!!!!!

Gracias.

'en el load del form1 le asignamos valores a nuestro combobox1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Clear()
ComboBox1.Items.Insert(0, "A")
ComboBox1.Items.Insert(1, "B")
ComboBox1.Items.Insert(2, "C")
ComboBox1.Items.Insert(3, "D")
ComboBox1.SelectedIndex = 0
End Sub

'aqui al seleccionar en el combobox1 le va ir asignando valores distintos al combobox2
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
ComboBox2.Items.Clear()
Select Case ComboBox1.SelectedIndex
Case 0
ComboBox2.Items.Insert(0, "1")
ComboBox2.Items.Insert(1, "2")
ComboBox2.SelectedIndex = 0
Case 1
ComboBox2.Items.Insert(0, "3")
ComboBox2.Items.Insert(1, "4")
ComboBox2.SelectedIndex = 0
Case 2
ComboBox2.Items.Insert(0, "5")
ComboBox2.Items.Insert(1, "6")
ComboBox2.SelectedIndex = 0
Case 3
ComboBox2.Items.Insert(0, "7")
ComboBox2.Items.Insert(1, "8")
ComboBox2.SelectedIndex = 0
Case Else
MsgBox("No hay contenido")
End Select
End Sub

'Salud2