I need some help with translating VB6 code to VFP8. Any help, with or without a fee will be appreciated.
Thanks

Private Sub btnProcessTransaction_Click() 
Dim ms As New MercuryShield.MercuryShieldUI 
Dim req As New Transaction.Request 
Dim resp As New Transaction.Response 
Dim ret As Integer 

'set request object properties based on POS information 
req.TenderType = MSEnum.TenderTypes.TenderTypes_Credit 
req.TransactionType = MSEnum.TransactionTypes.TransactionTypes_Sale 
req.AmountData.PurchaseAmount = 1.11 
req.MerchantID = "395347306=TOKEN" 
req.UserID = "dano" 
req.InvoiceNumber = "1" 
req.ReferenceNumber = "1" 
req.Memo = "TranSentry VB6" 
req.CreditServers = "x1.mercurydev.net" 
req.GiftServers = "g1.mercurydev.net" 
req.TerminalName = "TranSentryTerminal" 

'set the request object in the MercuryShieldUI object 
Set ms.MercuryShieldRequest = req 

'show the MercuryShieldUI 
ret = ms.ShowDialog() 
'ret = 2 means user cancelled the MS UI dialog 
'ret = 1 means user hit the process button and the dialog closed 
Set resp = ms.MercuryShieldResponse 

'do something with the resp object here 
'for example print resp.CmdStatus 
ret = MsgBox("CmdResponse=" & resp.CmdStatus, vbOKOnly, "TranSentry") 
End Sub