rue
                  End If
               End If
            End If
         End If
      End If
      
      If Not (bDrawn) Then
         lColor = BackColor
         If lColor And &amp;H80000000 Then
            hBr = GetSysColorBrush(lColor And &amp;H1F&amp;)
         Else
            hBr = CreateSolidBrush(lColor)
         End If
         FillRect lHDC, tR, hBr
         DeleteObject hBr
      End If
   End If
      
   If (m_bSegments) And Not (bDrawn) Then
      lSegmentWidth = 8
      lSegmentSpacin