funciones combo box

[ReViJa]

Carga en un formulario dos combobox y copia el code que he puesto.
Al seleccionar un elemento de la lista desplegable del combo1 se cargará automaticamente la lista del combo2.

Voy por pasos (pero rapido que me pierdo el futbol ) jejeje
Al iniciar el formulario carga el combo1 con cuatro valores (en este ejemplo he usado números.)

Código:

Private Sub Form_Load()

Combo1.AddItem "uno"
Combo1.AddItem "dos"
Combo1.AddItem "tres"
Combo1.AddItem "cuatro"

End Sub

Al seleccionar un Elemento de la lista del combo1(uno, dos, tres o cuatro) se carga automaticamente el combo2 dependiendo del valor seleccionado del combo1

Código:

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
  Case 0
    Vaciar
    Combo2.AddItem "uno"
    Combo2.AddItem "uno"
    Combo2.AddItem "uno"
    Combo2.AddItem "uno"
  Case 1
    Vaciar
    Combo2.AddItem "dos"
    Combo2.AddItem "dos"
    Combo2.AddItem "dos"
    Combo2.AddItem "dos"
  Case 2
    Vaciar
    Combo2.AddItem "tres"
    Combo2.AddItem "tres"
    Combo2.AddItem "tres"
    Combo2.AddItem "tres"
  Case 3
    Vaciar
    Combo2.AddItem "cuatro"
    Combo2.AddItem "cuatro"
    Combo2.AddItem "cuatro"
    Combo2.AddItem "cuatro"
End Select
End Sub

He añadido un procedimiento para vaciar el combo2 y asi solo muestra los valores que se seleccionen.

Código:

Private Sub Vaciar()

Cont = Combo2.ListCount - 1
For x = Cont To 0 Step -1
  Combo2.RemoveItem x

Next
End Sub

un saludo.