   DeleteObject hPen
      
      hPen = CreatePen(PS_SOLID, 1, GetSysColor(vb3DHighlight And &amp;H1F&amp;))
      hPenOld = SelectObject(lhDC, hPen)
      MoveToEx lhDC, tGR.right - 2, tGR.top, tJ
      LineTo lhDC, tGR.left, tGR.top
      LineTo lhDC, tGR.left, tGR.bottom - 1
      SelectObject lhDC, hPenOld
      DeleteObject hPen
                        
      hPen = CreatePen(PS_SOLID, 1, GetSysColor(vb3DDKShadow And &amp;H1F&amp;))
      hPenOld = SelectObject(lhDC, hPen)
      MoveToEx lhDC, tGR.lef