ct hPen
                        
      If Not (bThinHeader) Then
         hPen = CreatePen(PS_SOLID, 1, GetSysColor(vb3DDKShadow And &amp;H1F&amp;))
         hPenOld = SelectObject(lhDC, hPen)
         MoveToEx lhDC, tTR.left, tTR.bottom - 1, tJ
         LineTo lhDC, tTR.right - 1, tTR.bottom - 1
         LineTo lhDC, tTR.right - 1, tTR.top
         SelectObject lhDC, hPenOld
         DeleteObject hPen
      End If
      
   End If
   
End Sub

''' &lt;summary&gt;
''' Translates an &lt;c&gt;OLE_COLOR&lt;/c&