C / C++ / MFC

// Explorer .h
DECLARE_MESSAGE_MAP()
afx_msg BOOL OnEraseBkgnd(CDC* pDC);

//Explorer.cpp

BEGIN_MESSAGE_MAP(CExplorer, CWnd)
  ON_WM_ERASEBKGND()
END_MESSAGE_MAP()

BOOL CExplorer1::OnEraseBkgnd(CDC* pDC)
{
  CRect rc;
  GetClientRect(&rc);
  pDC->FillSolidRect(&rc, RGB(255, 0, 0));

  return TRUE;
}

#include <afxtempl.h>

class CDataPack : public CObject
{
public: // you can determine this access scope
	CStringArray m_saType;	
	CStringArray m_saItem;	
	CStringArray m_saPerson;

	const CDataPack& operator=(const CDataPack& rdp)
	{
		m_saType.Copy(rdp.m_saType);
		m_saItem.Copy(rdp.m_saItem);
		m_saPerson.Copy(rdp.m_saPerson);
		return *this;
	}

	BOOL IsSerializable() const { return TRUE; }

	virtual void Serialize(CArchive& ar)
	{
		m_saType.Serialize(ar);
		m_saItem.Serialize(ar);
		m_saPerson.Serialize(ar);
	}
};

typedef CArray<CDataPack, CDataPack&> CDataPackType;

void AnyFunc()
{
	CString strElement(_T("An Element"));
	CDataPack pkt;

	pkt.m_saType.Add(strElement);  // using public access
	pkt.m_saItem.Add(strElement);
	pkt.m_saPerson.Add(strElement);

	CDataPackType arrData;

	arrData.Add(pkt);

	CFile file; // TODO: you need to open the file
	CArchive ar(&file, CArchive::store);
	arrData.Serialize(ar);
}

HKCR\CLSID\{GUID}\InprocServer32