nFace And &amp;H1F&amp;)
      FillRect lhDC, tTR, hBr
      DeleteObject hBr
      
      Dim hPen As Long
      Dim hPenOld As Long
      Dim tJ As POINTAPI
      
            
      hPen = CreatePen(PS_SOLID, 1, GetSysColor(vbButtonShadow And &amp;H1F&amp;))
      hPenOld = SelectObject(lhDC, hPen)
      If (bThinHeader) Then
         MoveToEx lhDC, tTR.left, tTR.bottom - 1, tJ
         LineTo lhDC, tTR.right - 1, tTR.bottom - 1
         LineTo lhDC, tTR.right - 1, tTR.top
      Else
         MoveToEx lh