Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack AndAlso txtTID.Text = "" Then
            'Captura o TID gravado na session pelo arquivo "Visa_Pague.aspx" 
            txtTID.Text = Me.Session("TID")
        End If
    End Sub

    Protected Sub btnCaptura_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCaptura.Click
        'Faz a chamada aos componentes para obter as informações 
        Dim vc As VisaCapture = Visa.Capture(txtMerchantID.Text, txtTID.Text, txtValor.Text)
        'concatena todas as variáveis de retorno
        'Veja a documentação visanet para entender para que serve cada uma delas 
        lblOut.Text = _
            "ARS: " & vc.ARS & "<br>" & _
            "FREE: " & vc.FREE & "<br>" & _
            "LR: " & vc.LR & "<br>" & _
            "CAP: " & vc.CAP
        txtXML.Text = vc.ResultXML
    End Sub