網絡上有很多利用VB編程實現屏幕變暗的效果（像關閉Win95時的效果），我用VC改寫了一下，權利屬于原文作者！
正文
    HDC hdc;
         //屏幕的寬度個高度
    int SCRWidth,SCRHeight;

    if(m_Bool)
    {
    BYTE bybits[] = {0x55, 0x0, 0xAA, 0x0,
                     0x55, 0x0, 0xAA, 0x0,
                     0x55, 0x0, 0xAA, 0x0,
                     0x55, 0x0, 0xAA, 0x0};

    hBitmap = ::CreateBitmap(8, 8, 1, 1, bybits);
    hBrush = ::CreatePatternBrush(hBitmap);

    hdc = ::GetDC(NULL);
    SCRWidth = ::GetSystemMetrics(SM_CXSCREEN);
    SCRHeight = ::GetSystemMetrics(SM_CYSCREEN);

    ::SelectObject(hdc,hBrush);
    //0xA000C9
    ::PatBlt(hdc,0,0,SCRWidth,SCRHeight,0xA000C9);

    ::DeleteObject(hBrush);
    ::ReleaseDC(0, hdc);
    }
    else
             //重畫整個屏幕
        ::InvalidateRect(NULL, 0, 1);


正文完，本文源代碼：

  http://www.vchelp.net/ASP/ibr_upload/656.rar