*!* btnProcessTransaction.Click
*!*
LOCAL loMS, loReq, loResp, lnRet
m.loMS = CREATEOBJECT('MercuryShield.MercuryShieldUI')
m.loReq = CREATEOBJECT('Transaction.Request')
m.lnRet = 0

*!* set request object properties based on POS information
m.loReq.TenderType = MSEnum_TenderTypes_TenderTypes_Credit
m.loReq.TransactionType = MSEnum_TransactionTypes_TransactionTypes_Sale
m.loReq.AmountData.PurchaseAmount = 1.11
m.loReq.MerchantID = "395347306=TOKEN"
m.loReq.UserID = "dano" 
m.loReq.InvoiceNumber = "1" 
m.loReq.ReferenceNumber = "1" 
m.loReq.Memo = "TranSentry VB6" 
m.loReq.CreditServers = "x1.mercurydev.net" 
m.loReq.GiftServers = "g1.mercurydev.net" 
m.loReq.TerminalName = "TranSentryTerminal" 

*!* set the request object in the MercuryShieldUI object 
m.loMS.MercuryShieldRequest = m.loReq

*!* show the MercuryShieldUI 
m.lnRet = m.loMS.ShowDialog() 
*!* ret = 2 means user cancelled the MS UI dialog 
*!* ret = 1 means user hit the process button and the dialog closed 

m.loResp = m.loMS.MercuryShieldResponse 

*!* do something with the resp object here
*!* for example print resp.CmdStatus
m.lnRet = MESSAGEBOX("CmdResponse=" + m.loResp.CmdStatus, 0, "TranSentry")
>