A conversão do tipo 'Banco' no tipo 'Integer' não é válida

Question

Tenho aplicação dividida em duas partes - Financeiro (exe) e Repositorio (dll), no Financeiro tenho um form com duas combobox - cboBanco responsável por exibir os bancos cadastrados e cboAgencia responsável por exibir as agencias cadastradas. 

Quando escolho um banco a cboAgencia é carregada com as agências pertencentes ao banco escolhido, porém, quando executo a aplicação aparece o erro "A conversão do tipo 'Banco' no tipo 'Integer' não é válida" e se eu continuo com a aplicação as combobox são carregadas com os dados normalmente. Abaixo segue o código responsável pela exibição dos dados:

Financeiro:

'código responsável pelo preenchimento da comboboxbanco.
Private Sub carregaComboBoxBanco()
    Dim banco As New BancoRepositorio()
    cboBanco.DataSource = banco.Consultar()
    cboBanco.ValueMember = "id"
    cboBanco.DisplayMember = "nome"
    cboBanco.SelectedIndex = -1
End Sub

'código responsável pelo preenchimento da comboboxagencia.
Private Sub carregaComboBoxAgencia()
    Dim agencia_banco As New Agencia_BancoRepositorio()
    cboAgencia.DataSource = agencia_banco.exibirAgencia(cboBanco.SelectedValue)
    cboAgencia.ValueMember = "id"
    cboAgencia.DisplayMember = "codigo" 'exibe o código da agência
    cboAgencia.SelectedIndex = -1
End Sub

Private Sub frmLancamentosDespesasBanco_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    carregaComboBoxBanco()
End Sub

Private Sub cboBanco_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboBanco.SelectedValueChanged
    carregaComboBoxAgencia()
End Sub

Repositorio:

Public Class Agencia_BancoRepositorio

    Inherits Repositorio(Of Agencia_Banco)

    Public Function exibirAgencia(ByVal intCodigo As Integer) As List(Of Agencia_Banco)
        Using session As ISession = SessionFactory.AbrirSession()
            Return (From e In session.Query(Of Agencia_Banco)() Where e.id_banco.Equals(intCodigo) Select e).ToList
        End Using
    End Function

End Class

Public Class BancoRepositorio

    Inherits Repositorio(Of Banco)
    
End Class

Public Class Agencia_BancoMap
    Inherits ClassMap(Of Agencia_Banco)

    Public Sub New()
        Id(Function(m) m.id)
        Map(Function(m) m.nome)
        Map(Function(m) m.id_banco)
        Map(Function(m) m.codigo)
        Table("agencia_banco")
    End Sub

End Class

Public Class BancoMap
    Inherits ClassMap(Of Banco)

    Public Sub New()
        Id(Function(m) m.id)
        Map(Function(m) m.codigo_banco)
        Map(Function(m) m.nome)
        Table("banco")
    End Sub

End Class

Public Class Agencia_Banco
    Public Overridable Property id As Integer
    Public Overridable Property nome As String
    Public Overridable Property id_banco As Integer
    Public Overridable Property codigo As String
End Class

Public Class Banco
    Public Overridable Property id As Integer
    Public Overridable Property codigo_banco As String
    Public Overridable Property nome As String
End Class