Translating VB Code to LabView

[Mark Balla]

I'm Building a production tester that uses a Melexis chip programmer. It came with and Active X toolkit but all the examples are written in VB.

I was able to interpret all the VB code except one part.

The code below scans for connected devices and returns a "Collection pointer"

Sub CreateDevice()

Dim PSFMan As MLX90251PSFManager, DevicesCol As ObjectCollection, I As Long

On Error GoTo lError

Set PSFMan = CreateObject("MPT.MLX90251PSFManager")

Set DevicesCol = PSFMan.ScanStandalone(dtSerial)

If DevicesCol.Count <= 0 Then

MsgBox ("No PTC-04 programmers found!")

Exit Sub

End If

' Dev is a global variable of type MLX90251PSFDevice

[FLX]

I think you have to use for the type input of the variant to data function an array of refnums, because in the VB is the first element selected with index 0 DevicesCol(0).