关于CDialog改变Style

在VC6.0下创建了一个对话框资源,在属性浏览中不改变他任何style和bordervoid CTestStyleDlg::OnButton1() 
{
// TODO: Add your control notification handler code here
CDlgTest *dlg=new CDlgTest;
dlg->Create(CDlgTest::IDD);
//dlg->ModifyStyle(0,WS_CAPTION);
DWORD dStyle=::GetWindowLong(dlg->GetSafeHwnd(),GWL_EXSTYLE);
dStyle&=~(WS_EX_DLGMODALFRAME|WS_OVERLAPPEDWINDOW|WS_POPUPWINDOW|WS_BORDER);
dStyle|=WS_CHILD;

::SetWindowLong(dlg->GetSafeHwnd(),GWL_STYLE,dStyle);
dlg->ShowWindow(SW_SHOW);
}创建出来的对话框的样式还有标题栏的样式,怎么用代码的形式将对话框改成child page,BORDER->NONE