Sobre el ComboBox en Visual Basic 6.0

[feivelfabiola]

Sobre combobox , en mi combo1_click() muestra el valor y su indice, pero en combo2_clic() no verifica que si es manzana en el combo2 que en el combo1 este elegido frutas, o si esta en combo2 brocoli que en combo1 este elegido verduras, por ejemplo tengo lo siguiente:

Private Sub Form_Load()

Combo1.Clear
Combo1.AddItem "frutas"
Combo1.AddItem "verduras"

Combo2.Clear
Combo2.AddItem "naranjas"
Combo2.AddItem "manzanas"
Combo2.AddItem "brocoli"
Combo2.AddItem "coliflor"

End Sub

Private Sub Combo1_Click()

Select Case Combo1.List(Combo1.ListIndex)
Case "": MsgBox "No hay ningún elemento seleccionado en el combobox1"
Case "frutas": MsgBox "Haz seleccionado el elemento " & Combo1.List(Combo1.ListIndex) & " con índice " & Combo1.ListIndex
Case "verduras": MsgBox "Haz seleccionado el elemento " & Combo1.List(Combo1.ListIndex) & " con índice " & Combo1.ListIndex

End Select


''''''' Aqui algo esta mal porque solo me manda el mensaje de error de MsgBox
''''''' "No concuerdan los tipos" y siempre sale no importa cual opcion elija
Private Sub Combo2_Click()

Select Case Combo2.Text
Case "": MsgBox "No hay ningún elemento seleccionado en el combobox"
Case "naranjas":
If Me.Combo1.List(Combo1.ListIndex) <> "frutas" Then
MsgBox "No concuerdan los tipos"
End If
Case "manzanas":
If Me.Combo1.List(Combo1.ListIndex) <> "frutas" Then
MsgBox "No concuerdan los tipos"
End If
Case "brocoli":
If Me.Combo1.List(Combo1.ListIndex) <> "verduras" Then
MsgBox "No concuerdan los tipos"
End If
Case "coliflor":
If Me.Combo1.List(Combo1.ListIndex) <> "verduras" Then
MsgBox "No concuerdan los tipos"
End If
End Select

End Sub