Tente criar a imagem com a gestão de cores original:

    Dim imagem As Image = Image.FromFile(strImagem, True)

Se mesmo assim não ficar como pretende, implemente o seguinte método:

    Private Function RetornaImagemComQualidade(ByVal strImagem As String) As Image
    	Dim imagem As Image = Image.FromFile(strImagem, True)
    	Dim objBitmapImagem As Bitmap = New Bitmap(imagem.Width, imagem.Height, PixelFormat.Format24bppRgb)
    
    	objBitmapImagem.SetResolution(imagem.HorizontalResolution, imagem.VerticalResolution)
    
    	Dim objGraphicsImagem As Graphics = Graphics.FromImage(objBitmapImagem)
    
    	objGraphicsImagem.Clear(SystemColors.Control)
    	objGraphicsImagem.CompositingQuality = CompositingQuality.HighQuality
    	objGraphicsImagem.InterpolationMode = InterpolationMode.HighQualityBilinear
    	objGraphicsImagem.SmoothingMode = SmoothingMode.HighQuality
    
    	objGraphicsImagem.Dispose()
    
    	Return objBitmapImagem
    End Function

Passando o caminho da sua imagem por parâmetro.

Edit
---
Só reparei agora que está a utilizar uma `ImageList` para guardar as imagens antes de as colocar na `ListView`. Experimente fazer o seguinte:

    thumbnail.ColorDepth = ColorDepth.Depth32Bit

Outra solução passa por não fazer o *resize* das imagens na `ImageList` e mantê-las do mesmo tamanho, fazendo isso depois apenas na `ListView`.