COM

Mike Dimmick wrote:

Otherwise, if it's a really blocking issue, contact Microsoft support, or if not blocking, post on the Visual Studio Feedback Center[^].

Gary Wheeler wrote:

I don't like having to use one of my MSDN support incidents to report a bug, but that's what I may end up doing.

Public Function f1(ByRef arr1() As String, ByRef arr2() As Double) As String()
   ShowList arr1
End Function

Private Sub ShowList(ByRef arr() As String)
    for i1 = LBound(arr, 1) to UBound(arr, 1)
       MsgBox arr(i1)
    next i1
End Sub

SAFEARRAY* CreateASafeArray() 
{
	//http://www.geocities.com/Jeff_Louie/safearray.html
	USES_CONVERSION;  // enables use of ATL conversion macro A2W
	char buffer[20];  // used to store ANSI string
	HRESULT hr= S_OK;

	// Create SafeArray of VARIANT BSTRs
	SAFEARRAY *pSA;
	SAFEARRAYBOUND aDim[1];    // a one dimensional array
	aDim[0].lLbound= 0;  // Visual Basic arrays start with index 0
	aDim[0].cElements= 10;
	pSA= SafeArrayCreate(VT_VARIANT,1,aDim);  // create a 1D SafeArray of VARIANTS
	if (pSA != NULL) {
		long aLong[1];
		// iterate over array adding VARIANTs of type VT_BSTR
		for (long l= aDim[0].lLbound; l< (long)(aDim[0].cElements + aDim[0].lLbound); l++) { 
			VARIANT vOut;
			VariantInit(&vOut);
			vOut.vt= VT_BSTR;  // set type
			_ltoa_s(l,buffer,10);  // convert long to ANSI string value
			vOut.bstrVal= ::SysAllocString(A2W(buffer)); // system wide "new"
			aLong[0]= l;  // set index value
			if (hr= SafeArrayPutElement(pSA, aLong, &vOut)) { // "correctly" copies VARIANT
				VariantClear(&vOut);  // release BSTR from memory on error
				SafeArrayDestroy(pSA); // does a deep destroy on error
				return NULL;
			}
			VariantClear(&vOut);  // does a deep destroy of source VARIANT
		} // end iteration
	}
	return pSA;
	// clean up here only if you do not return SafeArray as an [out, retval]
	SafeArrayDestroy(pSA); // again does a deep destroy
}

void CaxDlg::OnBnClickedButton1()
{
	SAFEARRAY *pSA3 = CreateASafeArray ();
}