Dim imageStream As New FileStream("tulipfarm.jpg", FileMode.Open, FileAccess.Read, FileShare.Read)
Dim myBitmapSource As BitmapSource = BitmapFrame.Create(imageStream)
Dim myBitmapSourceFrame As BitmapFrame = CType(myBitmapSource, BitmapFrame)
Dim sourceColorContext As ColorContext = myBitmapSourceFrame.ColorContexts(0)
Dim destColorContext As New ColorContext(PixelFormats.Bgra32)
Dim ccb As New ColorConvertedBitmap(myBitmapSource, sourceColorContext, destColorContext, PixelFormats.Pbgra32)
Dim myImage3 As New Image()
myImage3.Source = ccb
myImage3.Stretch = Stretch.None
imageStream.Close()