cus
   
End Sub

''' &lt;summary&gt;
''' Raised when the grid's selection changes.
''' &lt;/summary&gt;
''' &lt;param name="lRow"&gt;New selected row.&lt;/param&gt;
''' &lt;param name="lCol"&gt;New selected column.&lt;/param&gt;
Private Sub grdThis_SelectionChange(ByVal lRow As Long, ByVal lCol As Long)
   Status = "Selected: " &amp; lRow &amp; "," &amp; lCol
   chkBold.Tag = "CODE"
   chkBold.Value = Abs(grdThis.CellFont(lRow, lCol).Bold)
   chkBold.Tag = ""
   chkItalic.Tag = "CODE"
   chkItalic.Value = A