Evento combobox change a partir de otro combobox

[BACH]

Pues te puedo ayudar a llenar el 2o. combo a partir del primero, creo q con eso tendrias camino ganado. Lo que yo hago es lo sgte: Uso variables booleanas publicas para identificar el evento de cambio del combobox

''Evento del combo 1, q ya esta lleno
Private Sub cmbdocordpag_SelectedIndexchanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbDocOrdPag.SelectedIndexChanged
If xEntDocu = True Then ''variable booleana. Esta variable se pone true ''donde lleno el combo 1
Me.llecmbCta() ''con esta funcion lleno el 2 combo
End If



ESTA ES LA FUNCION PARA LLENAR EL COMBO 2
Private Sub llecmbCta()

Dim ds As DataSet
Dim cRadOrdPag As clspar_det
Dim cnxdb As clsConexion
'' set de la conexion
Try
xEntCtasContables = False
cnxdb = New clsConexion
cnxdb.Login = Me.login
cnxdb.Pass = Me.passProp
cnxdb.Serv = Me.servProp
cnxdb.BD = Me.BDProp
''crea la conexion
cnxdb.ConectarDB()
cRadOrdPag = New clspar_det
cRadOrdPag.conexion = cnxdb

If Me.cmbDocOrdPag.SelectedIndex <> -1 Then
cRadOrdPag.coddocordpagProp = Me.cmbDocOrdPag.SelectedValue''el 'valor seleccionado en combo1
End If
ds = cRadOrdPag.consultar
'me.txtmensaje.text = cstr(dsmensajes.tables(0).rows(0)("mensaje"))
Me.cmbCtaContable.DataSource = ds.Tables(0)
Me.cmbCtaContable.DisplayMember = "codigo"
Me.cmbCtaContable.ValueMember = "codigo"
ds = Nothing
cnxdb.DesconectarDB()
xEntCtasContables = True

Catch ex As System.Exception

Dim baserrores As New basErroresv100
baserrores.txtModulo.Text = Me.Name
baserrores.txtError.Text = "error."
baserrores.txtDetalle.Text = ex.Message
baserrores.ShowDialog()
Me.Close()
End Try

End Sub
End Sub


espero q sea de ayuda