me="lCol"&gt;Column whose size is being changed.&lt;/param&gt;
''' &lt;param name="lWidth"&gt;New width of the column&lt;/param&gt;
''' &lt;param name="bCancel"&gt;Whether to cancel sizing or not&lt;/param&gt;
Private Sub grdThis_ColumnWidthChanging(ByVal lCol As Long, lWidth As Long,
 bCancel As Boolean)
   ' If column 1 then prevent size change;
   If (grdThis.ColumnKey(lCol) = "file") Then
      bCancel = True
   End If

End Sub

Private Sub grdThis_HotItemChange(ByVal lRow As Long, ByVal lCol As Long)
 