r = GetSysColorBrush(vbButtonFace And &amp;H1F&amp;)
      FillRect lhDC, tGR, 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)
      MoveToEx lhDC, tGR.left + 1, tGR.bottom - 2, tJ
      LineTo lhDC, tGR.right - 2, tGR.bottom - 2
      LineTo lhDC, tGR.right - 2, tGR.top
      SelectObject lhDC, hPenOld
   