  tBR.Top = tR.Top + (tR.Bottom - tR.Top) * fPercent
      If (m_bSegments Or bDrawn) Then
         ' Quantise bar:
         tBR.Top = tBR.Top - ((tBR.Top - tBR.Bottom) Mod (lSegmentWidth +
          lSegmentSpacing))
         If tBR.Top &gt; tR.Bottom Then
            tBR.Top = tR.Bottom
         End If
      End If
   End If
   
   If Not bDrawn Then
      hRgn = CreateRectRgnIndirect(tBR)
      SelectClipRgn lHDC, hRgn
   End If
   
   If Not m_picBar Is Nothing Then
      If m_eBackPictureMode = EVPRGTi