Visual Basic - problema con combobox vb 6

Wolas!

Estoy trabajando con VB 6.0 y me he atascado en una tonteria.
Quiero que cuando elija un item de un combobox se me muestre el texto del item en un textbox
Es decir por ejemplo:
hago

Combo1.AddItem "a) HOMOLOGACIÓN TRANSACCION", 0
Combo1.AddItem "b) SUSPENSIÓN", 1
Combo1.ItemData(0) = 0
Combo1.ItemData(1) = 1

y quiero que cuando seleccione el item que contiene "a) HOMOLOGACIÓN TRANSACCION" se me copie a un textbox.

Gracias por adelantado!!

Solucionado
soy un palomo y no le habia dado a la funcion combo1.click ....xD

Private Sub Combo1_Click()
Text1.Text = Combo1
End Sub

Private cmdSalir_Click()
MsgBox (" De Click en ... 'ACEPTAR',... Para Terminar")
End

End Sub

Private Sub Form_Load()
Dim a As Integer
Combo1.AddItem "Estados Unidos"
Combo1.AddItem "Canadá"
Combo1.AddItem "México"
Combo1.AddItem "Guatemala"
Combo1.AddItem "Belice"
Combo1.AddItem "Honduras"
Combo1.AddItem "El Salvador"
Combo1.AddItem "Nicaragua"
Combo1.AddItem "Costa Rica"
Combo1.AddItem "Panamá"
Combo1.AddItem "Colombia"
Combo1.AddItem "Venesuela"
Combo1.AddItem "Ecuador"
Combo1.AddItem "Perú"
Combo1.AddItem "Uruguay"
Combo1.AddItem "Paraguay"
Combo1.AddItem "Brasil"
Combo1.AddItem "Argentina"
Combo1.AddItem "Bolivia"
Combo1.AddItem "Chile"
End Sub

hola harpo, si deseas todo el codigo fuente contactame y te lo mando.
mi mail es:
[email protected]


rem si solo quieres que se muestre este texto en el textbox
ocupas 1 combo y un boton
Private Sub Combo1_Click()
If Combo1.Text = "a) HOMOLOGACIÓN TRANSACCION" Then Text1.Text = Combo1
End Sub

Private Sub Command1_Click()
Set Form1 = Nothing
End
End Sub

___________________________________________________________
rem si quieres que se muestre lo que pulsas en el combo1
ocupas 2 combos, 2 botones,
Private Sub Combo1_Click()
If Combo1.Text = "a) HOMOLOGACIÓN TRANSACCION" Then Text1.Text = Combo1
End Sub

Private Sub Command1_Click()
Set Form1 = Nothing
End
End Sub

Private Sub Form_Load()
Combo1.AddItem "a) HOMOLOGACIÓN TRANSACCION"
Combo1.AddItem "b) SUSPENSIÓN"
Combo2.AddItem "a) HOMOLOGACIÓN TRANSACCION"
Combo2.AddItem "b) SUSPENSIÓN"
End Sub

Private Sub Combo2_Click()
Text2.Text = Combo2
End Sub

bye