.left = tGR.left + 2
   tGR.right = tGR.left + 12
   tGR.top = tGR.top + (tGR.bottom - tGR.top - 12) \ 2
   tGR.bottom = tGR.top + 12

   If (isXp) Then
      Dim hTheme As Long
      hTheme = OpenThemeData(hwnd, StrPtr("TREEVIEW"))
      If Not (hTheme = 0) Then
         DrawThemeBackground hTheme, lhDC, 2, IIf(bCollapsed, 1, 2), tGR, tGR
         CloseThemeData hTheme
         bDone = True
      End If
   End If
   
   If Not (bDone) Then
         
      ' Draw button border
      Dim hBr As Long
      hB