如何设置属性页面的字型属性

一个基于property page的页面m_Dialog,在sheet class里面通过AddPage(&m_Dialog)进行属性页面的添加,
在sheet类中建一字形CFont m_Font,在m_Dialog class中有一个函数用于重新设定该dialog的新字型
SetNewFont(CFont *pFont)
{
    m_pFont = pFont;//m_pFont 是m_Dialog calss的成员变量
    if ((this->m_hWnd != NULL) && (m_pFont != NULL))
    {
        SetFont(m_pFont);
        CWnd *pChildWnd = GetWindow(GW_CHILD);
        while (pChildWnd)
        {   
            pChildWnd->SetFont(m_pFont);
            pChildWnd = pChildWnd->GetWindow(GW_HWNDNEXT);
        }
    }
}AddPage(&m_Dialog)放在sheet calss的构造函数中,完成属性页面添加
之后,设定字型m_Font.CreatePointFont(85, _T("Arial"))接着调用
SetNewFont(CFont *pFont)设定该属性页的字型,发现界面上显示
的字型是会跟着我的设定而变化,但是那个属性页界面大小并不跟着变化设定的
字型而变化,请问一下如何解决这个问题呀,我希望是属性页的大小也能被我重
新指定...感激...