  '
   'Debug.Print "HotItem: " &amp; grdThis.CellText(lRow, lCol)
   '
End Sub

''' &lt;summary&gt;
''' Respond to mouse down events:
''' &lt;/summary&gt;
''' &lt;param name="Button"&gt;Mouse buttons.&lt;/param&gt;
''' &lt;param name="Shift"&gt;Shift keys pressed, if any.&lt;/param&gt;
''' &lt;param name="X"&gt;X position of the mouse relative to the control&lt;/param&gt;
''' &lt;param name="Y"&gt;Y position of the mouse relative to the control&lt;/param&gt;
''' &lt;param name="bDoDefault"&gt;Whether to pe