Duas comboBox

Question

Como carregar uma segunda combobox conforme o valor selecionado na primeira combobox?

 Private Sub CarregaEstado()
        Dim qryCombo = From tb In bd.T_Estados _
                       Select tb

        Me.cbo_Estado.DataSource = qryCombo.ToList
        Me.cbo_Estado.DisplayMember = "sig_Estado"
        Me.cbo_Estado.ValueMember = "num_ID_Estado"

    End Sub

    Private Sub cbo_Estado_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_Estado.SelectedIndexChanged
        If cbo_Estado.SelectedIndex = -1 Then Exit Sub

        Dim qryCombo = From tb In bd.T_Cidades _
                       Where tb.num_ID_Estado Like Me.cbo_Estado.SelectedValue _
                       Select tb Order By tb.nom_Cidade

        Me.cbo_Cidade.DataSource = qryCombo.ToList
        Me.cbo_Cidade.DisplayMember = "nom_Cidade"
        Me.cbo_Cidade.ValueMember = "num_ID_Cidade"
    End Sub

---

Sergio Ivanenko