ISftDirectoryPtr vDir1 = m_Dir1.GetControlUnknown();
IFontDispPtr pFontDisp = vDir1->GetFont();
IFontPtr pFont = pFontDisp;
pFont->put_Name(L"Times New Roman");
CY sz;
sz.int64 = 10000L*12;
pFont->put_Size(sz);