VC中画虚线矩形的方法

CDC * dc = GetDC();
      CPen * pOldPen = NULL;
      CPen pen;
      if (m_bDashLine)
         pen.CreatePen(PS_DASH, 1, RGB(0, 255,0));//虚线
      if (m_bDotDashLine)
         pen.CreatePen(PS_DASHDOT, 1, RGB(0, 0,255));//点画线
      if (m_bFullLine)
         pen.CreatePen(PS_SOLID, 1, RGB(255, 0,0));//实线

      pOldPen = dc->SelectObject(&pen);

      CBrush * pOldBrush = NULL;
      CBrush * pBrush =CBrush::FromHandle((HBRUSH)GetStockObject(NULL_BRUSH));//背景透明效果
      pOldBrush = dc->SelectObject(pBrush);

      CRect rect;
      rect.SetRect(m_pointStart, point);

      dc->Rectangle(&rect);
      dc->SelectObject(pOldPen);
      pen.DeleteObject();