*!* 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") >Regards,