nt = 0#
   If lWidth &gt; lHeight Then
      tBR.Right = tR.Left + (tR.Right - tR.Left) * fPercent
      If (m_bSegments Or bDrawn) Then
         ' Quantise bar:
         tBR.Right = tBR.Right - ((tBR.Right - tBR.Left) Mod (lSegmentWidth +
          lSegmentSpacing))
         'Debug.Assert ((tBR.Right - tBR.Left) Mod (lSegmentWidth +
          lSegmentSpacing) = 0)
         If tBR.Right &lt; tR.Left Then
            tBR.Right = tR.Left
         End If
      End If
   Else
      fPercent = 1# - fPercent
    