Rockwell Automation FactoryTalk Transaction Manager User Guide - Manual (Page 156)

●
●
●
●
●
FactoryTalk Transaction Manager User Guide
156
Set obj = CreateObject("ComSampleVB.Class1")
‘ Put a value into the required argument and
‘ pass it to the remote component
szKey = "ignored"
‘ Call the remote component
‘ and display the return value
MsgBox obj.Get_VB_Sample_Data(szKey, szString)
‘ Display the returned data
MsgBox "String Data: " & szString
‘ Destroy the instance of the remote component
Set obj = Nothing
End Sub
Private Sub Form_Load()
Command1.Caption = "Call COM+ VB Sample"
End Sub