If MP.Cover = Null Then
ImgCover.Visible = False
Else
Dim In As InputStream
In.InitializeFromBytesArray(MP.Cover,0,MP.Cover.Length)
Dim bmp As Bitmap
bmp.Initialize2(In)
ImgCover.Bitmap = CreateScaledBitmap(bmp,ImgCover.Width,ImgCover.Height)
ImgCover.Visible = True
In.Close
End If