Ejemplo en VB.NET
Imports System
Namespace Cfdi.Complemento.Pagos10
Class Program
Private Shared Sub Main(ByVal args As String())
Dim pagos10 = New USLib.Complementos.Comprobante.Pagos10.FachadaCfdi33Pagos10()
pagos10.P00Setup(cerFile:="D:\Dropbox\CSD Pruebas\CSD_Pruebas_CFDI_MAG041126GT8\CSD_Pruebas_CFDI_MAG041126GT8.cer", keyFile:="D:\Dropbox\CSD Pruebas\CSD_Pruebas_CFDI_MAG041126GT8\CSD_Pruebas_CFDI_MAG041126GT8.key", passwordKey:="12345678a")
pagos10.P01Generales(serie:="A", folio:="2002", fecha:=DateTime.Now, lugarExpedicion:="85040")
pagos10.P03Emisor(rfc:="MAG041126GT8", nombre:="EMCORSOFT SC", regimenFiscal:="601")
pagos10.P04Receptor(rfc:="COMR850106QQA", nombre:="Roberto Corona", numRegIdTrib:="", residenciaFiscal:="")
Dim idPago = pagos10.P05AgregarPago(fechaPago:=DateTime.Now.ToString("s"), formaPago:="03", moneda:="MXN", tipoCambioP:="", monto:="1000", numOperacion:="01", rfcEmisorCtaOrd:="", nomBancoOrdExt:="", ctaOrdenante:="", rfcEmisorCtaBen:="", ctaBeneficiario:="", tipoCadPago:="", certPagoBase64:="", cadPago:="", selloPagoBase64:="")
pagos10.P06AgregarDoctoRelacionado(idPago:=idPago, idDocumento:="4CEDEC32-497D-4632-A0EF-723D8504AAB7", serie:="", folio:="", monedaDr:="MXN", tipoCambioDr:="", metodoPagoDr:="PUE", numParcialidad:="1", impSaldoAnt:="1000", impPagado:="1000", impSaldoInsoluto:="")
Dim result = pagos10.P10TimbrarDocumento(esPrueba:=True, validacionPrevia:=False, key:="", referencia:="USlib")
If result.OperacionExitosa Then
Dim rfcProveedor = pagos10.ResumenCfdv33.TfdRfcProvCertif
Dim uuid = pagos10.ResumenCfdv33.TfdUuid
Dim fechaTimbrado = pagos10.ResumenCfdv33.TfdFechaTimbrado
Dim selloSat = pagos10.ResumenCfdv33.TfdSelloSat
Dim noCertificadoSat = pagos10.ResumenCfdv33.TfdNoCertificadoSat
Dim noCertificadoEmisor = pagos10.CsdSerie
Dim cadenaSat = pagos10.ResumenCfdv33.TfdCadenaOriginal
System.IO.File.WriteAllBytes("C:\Wsdl\" & pagos10.ResumenCfdv33.TfdUuid & ".jpg", pagos10.ResumenCfdv33.QrImagen)
Console.WriteLine("OK")
System.IO.File.WriteAllBytes("C:\Wsdl\" & pagos10.ResumenCfdv33.TfdUuid & ".xml", result.XmlFile)
Else
System.IO.File.WriteAllBytes("C:\Wsdl\Error.xml", result.XmlFile)
Console.WriteLine(result.MensajeError)
End If
Console.WriteLine("Fin")
Console.ReadKey()
End Sub
End Class
End Namespace