If CType(bs.Item(e.RowIndex), MiaClasse).Proprieta > 0 Then dgv.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Navy