''''' Ya arreglé esto, hice lo siguiente primero selecciono en combo1 si son frutas o verduras y en
''''''combo2 es como el submenu si se elijió frutas sale naranjas o manzanas
''''' y si se elijió verduras salen los brocolis y las coliflores, que estén bien...
Private Sub Combo2_Click()
Select Case Me.Combo2.Text
Case "naranjas"
MsgBox "Las naranjas tienen vitamina C"
Case "manzanas"
MsgBox "Las manzanas tienen ...."
Case "brocolis"
MsgBox "Los brocolis tienen ...."
Case "coliflores"
MsgBox "Las coliflores tienen ...."
End Select
End Sub
Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "frutas"
Combo1.AddItem "verduras"
Combo2.Clear
End Sub
Private Sub Combo1_Click()
Select Case Me.Combo1.Text
Case "frutas":
Combo2.Clear
Combo2.AddItem "naranjas", 0
Combo2.AddItem "manzanas", 1
Case "verduras":
Combo2.Clear
Combo2.AddItem "brocolis", 0
Combo2.AddItem "coliflores", 1
End Select
End Sub