   LSet tWR = tBR
         InflateRect tWR, -2, -2
         If (lWidth &gt; lHeight) Then
            hR = DrawThemeBackground(hTheme, lHDC, 3, 0, tWR, tWR)
         Else
            hR = DrawThemeBackground(hTheme, lHDC, 4, 0, tWR, tWR)
         End If
      Else
         lColor = m_oBarColor
         If lColor And &amp;H80000000 Then
            hBr = GetSysColorBrush(lColor And &amp;H1F&amp;)
         Else
            hBr = CreateSolidBrush(lColor)
         End If
         FillRect lHDC, tBR, hBr
       