mit COM-API kommunizieren

Hallo zusammen,
kann mir jemand weiter helfen den programteil in LabVIEW zu schreiben.

Es ist mit Visual Basic geschrieben

Sub OpenLoad()

'access CommCtrlAccess
Set ctrla = CreateObject("ETAS.PTS.PINCONTROLV2.CommCtrl.CommCtrlAccess")

'using CommCtrlAccess class you can try to access the singleton instance
Set ctrl = ctrla.CommCtrlInstance

Dim returnValue As Integer
Dim XMLPath As String

' XMLPath is the Path to the WireHarness XML
XMLPath = Worksheets("ES4440WireHarnessSignals").Range("G5").Value

Call MsgBox("Initializing Error Simulation with Wireharness File: " & XMLPath, 0, "ES4440 Example")
returnValue = ctrl.InitErrorSimulationUsingFile(XMLPath)

Call MsgBox("Doing an Open Load on Unit under Test: ECU1, Pin: A1", 0, "ES4440 Example")
returnValue = ctrl.OpenLoad("ECU1", "A1", 0, 1)
returnValue = ctrl.ActivateRelay(-1)

Call MsgBox("Confirm to Reset Error.", 0, "ES4440 Example")
returnValue = ctrl.ResetAllErrors()


'free CommCtrl Singleton instance
Call ctrla.FreeCommCtrlInstance

Call MsgBox("OpenLoad Test complete", 0, "ES4440 Example")
End Sub