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;
}

Dim c as Control = Panel1.Controls[name];

ejaz_pk wrote:

Is there anybody who knows how to use google map in vb.net application for route optimization?

Google wrote[^]:

5.2 Account Key. After supplying Google with your account information and the URL of your Maps API Implementation, and accepting the Terms, you will be issued an alphanumeric key assigned to you by Google that is uniquely associated with your Google Account and the URL of your Maps API Implementation. Your Maps API Implementation must import the Google Maps APIs using this key as described in the Maps APIs Documentation, and Google will block requests with an invalid key or invalid URL. You may only obtain and use a key in accordance with these Terms and the Maps APIs Documentation.

I are Troll