Private Sub btnCadastrarCedente_Click()
  Dim CadastrarList As BoletoX.spdRetCadastrarCedente

Set CadastrarList = FBoletoX.CadastrarCedente(txtTx2.Text)


txtRetorno.Text = ".:: CADASTRAR CEDENTE ::."
  txtRetorno.Text = txtRetorno.Text & vbNewLine & "Mensagem : " & CadastrarList.Mensagem
  txtRetorno.Text = txtRetorno.Text & vbNewLine & "Status : " & CadastrarList.Status
  txtRetorno.Text = txtRetorno.Text & vbNewLine & "Erro de Conexão: " & CadastrarList.ErroConexao
  txtRetorno.Text = txtRetorno.Text & vbNewLine


If (CadastrarList.Status = "SUCESSO") Then


  txtRetorno.Text = txtRetorno.Text & "CedenteRazaoSocial : " & CadastrarList.RazaoSocial & vbNewLine
  txtRetorno.Text = txtRetorno.Text & "CedenteNomeFantasia : " & CadastrarList.NomeFantasia & vbNewLine
  txtRetorno.Text = txtRetorno.Text & "Situacao : " & CadastrarList.Situacao & vbNewLine
  txtRetorno.Text = txtRetorno.Text & "Token : " & CadastrarList.Token & vbNewLine
  txtRetorno.Text = txtRetorno.Text & "IdCedente : " & CadastrarList.IDCedente & vbNewLine

  txtIDCedente.Text = CadastrarList.IDCedente

End If


End Sub