C / C++ / MFC

#pragma pack(4)
struct MyCppType
{    
short iVal;    
double dVal;    
BSTR bstr;
};
#pragma pack()

void _stdcall MyDllFunction (array of MyCppType)
{  
//do something with the array  	
}

LIBRARY	"MyTestDll"
EXPORTS
MyDllFunction	@1

Option Explicit
Declare Sub MyDllFunction Lib "MyTestDLL.dll" (arr() As MyVbaType)


Type MyVbaType    
iVal As Integer    
dVal As Double    
sVal As String
End Type


Sub Test()    
Dim arr(2) As MyVbaType        
arr(1).iVal = 1    
arr(1).dVal = 1.1    
arr(1).sVal = "one"        
arr(2).iVal = 2    
arr(2).dVal = 2.2    
arr(2).sVal = "two"        
MyDllFunction (arr)    
End Sub

class CDrawC
{
protected:
	virtual void DrawItem(LPDRAWITEMSTRUCT lpdis, bool bHasFocus) = 0;
	virtual void MeasureItem(LPMEASUREITEMSTRUCT lpmis) = 0;
	virtual void InitLBox(CListBox* pLBox) = 0;
	virtual int AddItemLst(CListBox* pLBox, char* Item) = 0;
	friend class CODrawLBox;
};

class CPicDrawC : public CDrawC
{
public: 
	CPicDrawC() : PicSizeX(200), PicSizeY(200) {}
	const int PicSizeX;
	const int PicSizeY;
protected:
	virtual void DrawItem(LPDRAWITEMSTRUCT lpdis, bool bHasFocus);
	virtual void MeasureItem(LPMEASUREITEMSTRUCT lpmis);
	virtual void InitLBox(CListBox* pLBox) {} //no init needed
	virtual int AddItemLst(CListBox* pLBox, char* nItem);
	
};

class CODrawLBox : public CListBox
{
	DECLARE_DYNAMIC(CODrawLBox)

public:
	CODrawLBox();
virtual ~CODrawLBox();
void SetDrawC(CDrawC* pDrwC) {
        m_pDrawC = pDrwC;
	}

void Init() {
		m_pDrawC->InitLBox(this);
	}

	
int AddItem(char* Item) 
	{
        return m_pDrawC->AddItemLst(this, Item);
	}

protected:
	DECLARE_MESSAGE_MAP()
public:
	virtual void MeasureItem(LPMEASUREITEMSTRUCT /*lpMeasureItemStruct*/);
	virtual void DrawItem(LPDRAWITEMSTRUCT /*lpDrawItemStruct*/);
protected:
	CDrawC* m_pDrawC;
};

char* path = new char[128];
strcpy(path,"C:\\ProgramFiles\\MTAF\\Reports\\Tc_1_11032008_083859123_2.bmp");
m_picList.AddItem(path);

STARTUPINFO		StartUpInfo;
PROCESS_INFORMATION	ProcInfo;

memset(&StartUpInfo, 0, sizeof(StartUpInfo));
memset(&ProcInfo, 0, sizeof(ProcInfo));

StartUpInfo.dwFlags = STARTF_USESHOWWINDOW;
//	StartUpInfo.wShowWindow = SW_HIDE;
StartUpInfo.wShowWindow = SW_SHOWNORMAL;

CreateProcess( "D:\\MyTestConsole.exe", NULL, NULL, NULL, NULL, CREATE_NEW_CONSOLE, NULL, NULL, &StartUpInfo, &ProcInfo);