="lHDC"&gt;Handle to device context to draw onto.&lt;/param&gt;
''' &lt;param name="tTR"&gt;Bounding rectangle to draw glyph into.&lt;/param&gt;
''' &lt;param name="bCollapsed"&gt;&lt;c&gt;True&lt;/c&gt; to draw collapsed glyph,
''' &lt;c&gt;False&lt;/c&gt; to draw expanded glyph.&lt;/param&gt;
Public Sub DrawOpenCloseGlyph( _
      ByVal hwnd As Long, _
      ByVal lhDC As Long, _
      tTR As RECT, _
      ByVal bCollapsed As Boolean _
   )
Dim tGR As RECT
Dim bDone As Boolean
   
   LSet tGR = tTR
   tGR