Dim fPercent As Double
Dim bDrawText As Boolean
Dim hFntOld As Long
Dim iFnt As IFont
Dim i As Long
Dim lSegmentWidth As Long, lSegmentSpacing As Long
Dim bDrawnXpStyle As Boolean
Dim hTheme As Long
Dim hR As Long
Dim bDrawn As Boolean
   
   ' Reconstruct the rectangle:
   tR.Left = lLeft
   tR.Top = lTop
   tR.Right = lRight
   tR.Bottom = lBottom
   
   LSet m_tLastR = tR
   m_hWndLast = WindowFromDC(hDC)

   lWidth = Abs(tR.Right - tR.Left)
   lHeight = Abs(tR.Bottom - tR.Top)

   lhDCU = hDC
   lHDC = 