  DeleteObject hBr
      End If
   End If
   
   If m_bSegments And Not bDrawn Then
      lColor = BackColor
      If lColor And &amp;H80000000 Then
         hBr = GetSysColorBrush(lColor And &amp;H1F&amp;)
      Else
         hBr = CreateSolidBrush(lColor)
      End If
      LSet tSR = tR
      If lWidth &gt; lHeight Then
         For i = tBR.Left + lSegmentWidth To tBR.Right Step lSegmentWidth +
          lSegmentSpacing
            tSR.Left = i
            tSR.Right = i + lSegmentSpacing
            Fill