funciones combo box

[ReViJa]

Aqui tienes un ejemplo para que lo modifiques a tu antojo.

Código:

Private Sub Form_Load()

Combo1.AddItem "informacion general"
Combo1.AddItem "requerimientos"

End Sub

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
  Case 0
    Vaciar
    Vaciar2
    Combo2.AddItem "informacion de planes"
    Combo2.AddItem "informacion de servicios"
    Combo2.AddItem "informacion de promociones"
  Case 1
    Vaciar
    Vaciar2
    Combo2.AddItem "cambio de plan"
    Combo2.AddItem "cambio de servicio"
    Combo2.AddItem "cambio de direccion"
End Select
End Sub

Private Sub Combo2_Click()
Select Case Combo1.ListIndex
  Case 0
  Vaciar2
    Select Case Combo2.ListIndex
      Case 0
        Combo3.AddItem "informacion general, informacion de planes"
        Combo3.AddItem "informacion general, informacion de planes"
      Case 1
        Combo3.AddItem "informacion general, informacion de servicios"
        Combo3.AddItem "informacion general, informacion de servicios"
      Case 2
        Combo3.AddItem "informacion general, informacion de promociones"
        Combo3.AddItem "informacion general, informacion de promociones"
    End Select
  Case 1
  Vaciar2
    Select Case Combo2.ListIndex
      Case 0
        Combo3.AddItem "requerimientos, cambio de plan"
        Combo3.AddItem "requerimientos, cambio de plan"
      Case 1
        Combo3.AddItem "requerimientos, cambio de servicio"
        Combo3.AddItem "requerimientos, cambio de servicio"
      Case 2
        Combo3.AddItem "requerimientos, cambio de direccion"
        Combo3.AddItem "requerimientos, cambio de direccion"
    End Select
End Select
End Sub

Private Sub Vaciar()

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

Private Sub Vaciar2()
Cont = Combo3.ListCount - 1
For x = Cont To 0 Step -1
  Combo3.RemoveItem x
Next
End Sub