Private Sub dgv_CellPainting(sender As Object, e As  
         System.Windows.Forms.DataGridViewCellPaintingEventArgs) _
         Handles dgv.CellPainting
 
        If e.ColumnIndex >= 0 And e.RowIndex >= 0 Then
            If TypeOf e.Value Is Icon Then
 
                e.PaintBackground(e.CellBounds, False)
 
                Dim g As Graphics = e.Graphics
 
                g.InterpolationMode = _
                   Drawing2D.InterpolationMode.HighQualityBicubic '????
 
                g.SmoothingMode = _
                   Drawing2D.SmoothingMode.HighQuality '??????
 
                g.DrawIcon(DirectCast(e.Value, Icon), e.CellBounds)
 
                e.handled = true
            End If
        End If
 
    End Sub