Ayuda ComboBox y TextBox

[asastrem]

Mi problema es el siguiente:
Obtengo Datos de un procedimiento almacenado (SQL)

Colonia asigando un combobox porque cambia
Municipio TextBox no cambia
Estado TextBox no cambia
CP lo suministro yo en un textbo (con este obtengo los datos)

Tipo asentamiento TextBox CAMBIA
Tipo Zona TextBox CAMBIA

Lo que quiero es que al seleccionar la colonia en el combo, me cambie los TextBox
Asentamiento y Zona

esto es lo que tengo

Private Sub Codigos()
Dim oInmuebles As Entidades.Inmuebles
Dim oInmueblesNegocio As New Negocio.Inmuebles
Try
oInmuebles = oInmueblesNegocio.BusCodPos(CP)

If oInmuebles.Count > 0 Then
For Each oInmueble As Entidades.Inmueble In oInmuebles
cmbCol.Items.Add(oInmueble.Col)
txtDelMun.Text = (oInmueble.DelMun)
txtEst.Text = (oInmueble.Estado)
txtAsenta.Text = (oInmueble.Asenta)
txtZona.Text = (oInmueble.Zona)
Next
Else
MessageBox.Show("El CP solicitado no existe. Verifique.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
End If

Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
oInmuebles = Nothing
oInmueblesNegocio = Nothing
End Try
End Sub

Con esto me da los primeros valores y la opcion de seleccionar en el combo la colonia correcta, pero no cambia los textbox Asentamiento y zona

no pongo mas ComboBox, porque tiene que tener el Valor asignado a colonias


Muchas gracias...