>
Implements IGridCellOwnerDraw

Private m_cIml As cVBALSysImageList

Private Sub Form_Load
   grdIcons.OwnerDrawImpl = Me
End Sub

Private Sub IGridCellOwnerDraw_Draw( _
   cell As cGridCell, _
   ByVal lHDC As Long, _
   ByVal eDrawStage As ECGDrawStage, _
   ByVal lLeft As Long, ByVal lTop As Long, _
   ByVal lRight As Long, ByVal lBottom As Long, _
   bSkipDefault As Boolean
   )
   '
   If (eDrawStage = ecgBeforeIconAndText) Then
      '
      bSkipDefault = True
      
      ' Draw icon
      Dim lIco