Double click on the form. Paste the following code:
Option Explicit Public Revelation As Revelation Private Sub Command1_Click() Dim Engine As RevSoftLib.IEngine ' Declare variables Dim Result As Long Dim Queue As Object Dim strCmd As String Dim RetVal As String Dim myName As String 'Create the core Revelation object. Set Revelation = New Revelation Result = Revelation.CreateEngine(Engine, ":777", "SYSPROG", 0, 0) MsgBox "Result after CreateEngine = " & Result DoEvents If Result = 0 Then 'Create an active Queue. Result = Engine.CreateQueue(Queue, "777", "LAB", "LAB") MsgBox "Result after CreateQueue Method = " & Result If Result = 0 Then 'Call a Basic+ function... Dim ReturnValue As String Result = Queue.CallFunction(ReturnValue, "VB_READ_ROW", "GRANTS", "AIRFORCE") MsgBox "AIRFORCE GRANT RECORD = " & ReturnValue myName = "Ira Krakow" Result = Queue.CallSubroutine("OI_CHANGE_NAME", myName) MsgBox "After CallSubroutine, Name = " & myName Queue.CloseQueue End If Engine.CloseEngine End If Set Queue = Nothing Set Engine = Nothing Set Revelation = Nothing End Sub