[SOLVED]PropertySheet theme issue

BOOL CPropertySheetApp::InitInstance()
{
	AfxEnableControlContainer();

	// Standard initialization
	// If you are not using these features and wish to reduce the size
	//  of your final executable, you should remove from the following
	//  the specific initialization routines you do not need.

#if _MSC_VER <= 1200 // MFC 6.0 or earlier
#	ifdef _AFXDLL
	Enable3dControls(); // Call this when using MFC in a shared DLL
#	else
	Enable3dControlsStatic(); // Call this when linking to MFC statically
#	endif
#endif // MFC 6.0 or earlier

	XTPThemeDLL()->SetHandle(xtpIniWindows10Dark);
	XTPPaintManager()->SetTheme(XTPPaintTheme::xtpThemeNativeWindows10);
	
	CPropertySheetDlg dlg;
	m_pMainWnd	= &dlg;
	int nResponse = (int)dlg.DoModal();
	if (nResponse == IDOK)
	{
		// TODO: Place code here to handle when the dialog is
		//  dismissed with OK
	}
	else if (nResponse == IDCANCEL)
	{
		// TODO: Place code here to handle when the dialog is
		//  dismissed with Cancel
	}

	// Since the dialog has been closed, return FALSE so that we exit the
	//  application, rather than start the application's message pump.
	return FALSE;
}

void CPropertySheetDlg::OnButtonList()
{
	CXTPPropertySheet ps(_T("CXTPPropertyPageListNavigator Sample"));

	// The pages do not receive the theme if I call this here.
	// ps.SetTheme(xtpControlThemeNativeWindows10);


	CXTPPropertyPageListNavigator* pList = new CXTPPropertyPageListNavigator();
	pList->SetListStyle(xtpListBoxNativeWindows10);

	ps.SetNavigator(pList);

	// The pages receive the theme, but the titlebar goes blank.
	ps.SetTheme(xtpControlThemeNativeWindows10);

	CTabListPage pageProperties;
	CTabSamplePage pageSample;
	CTabResizablePage pageSize;

	ps.AddPage(&pageProperties);
	ps.AddPage(&pageSample);
	ps.AddPage(&pageSize);

	ps.SetResizable();

	ps.DoModal();
}