nd, szBuf, 260)
   lR = InStr(szBuf, vbNullChar)
   If (lR &gt; 0) Then
      WindowClassName = left$(szBuf, lR - 1)
   Else
      WindowClassName = szBuf
   End If
End Function

''' &lt;summary&gt;
''' Draws the dragging image shown when a column
''' is resized using XOR techniques.
''' &lt;/summary&gt;
''' &lt;param name="rcNew"&gt;Rectangle to show the drag
''' image in&lt;/param&gt;
''' &lt;param name="bFirst"&gt;Whether this is the first time
''' that the image has been drawn.&lt;/param&gt;
''' &lt;par