combox box problema

[juanutcm]

hola que tal te paso como lo podrias hacer

'Inicializo los combos
Private Sub doInicializaCombo1()
With ComboBox1
.AddItem "Planes y Tarifas",0
.AddItem "Otra Cosa",1
.AddItem " ",2
End With
ComboBox1.Text=ComboBox1.List(2)'Lo Inicializo con Vacio
End Sub

Private Sub doInicializaCombo2()
SelectCase ComboBox1.Text
Case "Planes y Tarifas"
With ComboBox2
.AddItem "Costo",0
.AddItem "Fecha",1
.AddItem " ", 2
End with
ComboBox2.Text=ComboBox2.List(2)
Case "Otra Cosa"
With ComboBox2
.AddItem "Otra Cosa",0
.AddItem "Otra Cosa1",1
.AddItem " ",2
End with
ComboBox2.Text=ComboBox2.List(2)
End Select
End sub

'En el evento change del combo1

Private sub ComboBox1.Change()
Call doInicializaCombo2
End Sub


Ojala Te sirva...suerte