Visual Basic - Pregunta combo box VB 6

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

Private Sub Combo2_Click() ''''' en esta parte solo manda los mensajes de MsgBox

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

El valor blanco no deberia programarse en el evento click del combo , porque al inicio siempre , el combo siempre estara en blanco y siempre saldra el mensaje.

saludos

Rolando

OK