Visual Basic

Public Class App
    Public Shared Sub WhatEverItDoes()
        ' Calculations
    End sub
End Class

App.WhatEverItDoes

Public Declare Function EncenderLEDs Lib "MonAuto.dll" (cbLeds() As IntPtr, estado As Boolean) As Integer)

GCHandle[] handleArray = new GCHandle[cbLeds.Length];
for (int i=0; i<cbLeds.Length; i++)
    handleArray[i] = GCHandle.Alloc(cbLeds[i], GCHandleType.Pinned);

IntPtr[] pointers = (from GCHandle handle in handleArray select
                        handle.GetAddrOfPinnedObject()).ToArray();

int ret = EncenderLEDs(pointers, false)
// Release the handles
foreach (GCHandle handle in handleArray)
    handle.Free();

Dim CBLeds(4) As CBTipo

        CBLeds(0).Borna = 0
        CBLeds(0).Carta = 0

        Dim handleArray(4) As GCHandle
        For i As Integer = 0 To CBLeds.Length - 1
            handleArray(i) = GCHandle.Alloc(CBLeds(i), GCHandleType.Pinned)
        Next i
        Dim pointers() As IntPtr = (From handle As GCHandle In handleArray Select handle.AddrOfPinnedObject()).ToArray()
        Dim ret As Integer = EncenderLEDs(pointers, False) ' Release the handlesforeach (GCHandle handle in handleArray)    handle.Free();


        For Each handle As GCHandle In handleArray
            handle.Free()
        Next

NOMANGLE short CCONV EncenderLEDs(LPSAFEARRAY *CBLeds, bool Estado)
{
	CBTipo HUGEP *Leds;
	long LBound, UBound;
	//USHORT	MatLeds[128];
	//DWORD ReceivedBytes;
	DWORD BytesWritten;
	DATA	Adat[256];
	short	ActAdat=0;
	short nLed;
	int j;
	USHORT	ErrorCnt;
	char Cadena[200];



	for(unsigned char i=0;i<128;++i)
	{
		Adat[i].Address = 0;
		Adat[i].Data = 0;
		Adat[128+i].Address = 0;
		Adat[128+i].Data = 0;
	}

	
	int k,l;
	k=SafeArrayGetLBound(*CBLeds,1,&LBound);
	l=SafeArrayGetUBound(*CBLeds,1,&UBound);
	sprintf(Cadena,"Valores %x %x %d %d",k,l,LBound,UBound);
	MessageBox(NULL,Cadena,"Titol",0);

        return 0;
}