C / C++ / MFC

//Using the extNumberProc variable, which is a pointer to the VB function for Numbers, calling<br />
//that function and passing to it the value received as parameter.<br />
void CallVBFunctionForNumber (long lSomeValueToSend)<br />
{<br />
	typedef void (__stdcall *OutsideFunction)(long AValue); //Defining the prototype of the function.<br />
	OutsideFunction FunctionCall; //Creating an instance that will be used to call the function.<br />
	FunctionCall = (OutsideFunction)extNumberProc; //Assigning the address to be used for the call.<br />
	FunctionCall(lSomeValueToSend); //Calling the function with the parameter.<br />
}

'FUNCTION CALLED FROM THE VC++ DLL.<br />
Public Sub ArrayDemoFunction(ByRef Something As Variant)<br />
 MsgBox Something(2)<br />
End Sub

//Using the extArrayProc variable, which is a pointer to the VB function for Arrays, calling<br />
//that function and passing to it a locally created array.<br />
void CallVBFunctionForArray ()<br />
{<br />
	typedef void (__stdcall *OutsideFunction)(VARIANT *AValue); //Same as above, creating a function<br />
	OutsideFunction FunctionCall; //prototype, instantiating it, and linking it to the real VB<br />
	FunctionCall = (OutsideFunction)extArrayProc; //function by doing this cast.<br />
<br />
	VARIANT *pVariant = NULL; //A variant typed pointer.<br />
	SAFEARRAY *sarrVC; //The safe array.<br />
	SAFEARRAYBOUND sabBound = { 10, 0 }; //Its bounds.<br />
<br />
	VariantInit (pVariant); //Initializing.<br />
	pVariant->vt = VT_ARRAY | VT_I4; //Setting the type of the variant.<br />
	sarrVC = SafeArrayCreate(VT_I4, 1, &sabBound); //Creating the safe array.<br />
	for (long iCounter = 0; iCounter < 10; iCounter++) //Inserting data in the array.<br />
		SafeArrayPutElement(sarrVC, &iCounter, &iCounter);<br />
  pVariant->parray = sarrVC; //Setting the data of the variant.<br />
	FunctionCall(pVariant); //Calling the VB function (crashes).<br />
}