Listing B
BOOL CCNETConfigApp::InitInstance()
{
    // Set Registry Key
    SetRegistryKey(TEXT("CNET Networks, Inc"));

    // Create Property Sheet
    CPropSheet m_dlgPropertySheet(TEXT("Settings"));

    // Create Property Pages
    CPageTab1 m_dlgPropertyPage1;
    CPageTab2 m_dlgPropertyPage2;
    CPageTab3 m_dlgPropertyPage3;

    // Add Property Pages to Property Sheet
    m_dlgPropertySheet.AddPage((CPropertyPage *)&m_dlgPropertyPage1);
    m_dlgPropertySheet.AddPage((CPropertyPage *)&m_dlgPropertyPage2);
    m_dlgPropertySheet.AddPage((CPropertyPage *)&m_dlgPropertyPage3);

    // Display modal dialog of Property Sheet
    m_dlgPropertySheet.DoModal();

    // Do not execute Windows message pump
    return FALSE;
}