eHeaderPart( _
      ByVal hwnd As Long, _
      ByVal lhDC As Long, _
      tTR As RECT, _
      ByVal bThinHeader As Boolean _
   )
Dim bDone As Boolean

   If (isXp) Then
      Dim hTheme As Long
      hTheme = OpenThemeData(hwnd, StrPtr("HEADER"))
      If Not (hTheme = 0) Then
         DrawThemeBackground hTheme, lhDC, 1, 1, tTR, tTR
         CloseThemeData hTheme
         bDone = True
      End If
   End If
   
   If Not (bDone) Then
         
      Dim hBr As Long
      hBr = GetSysColorBrush(vbButto