Log(LoadImageFromGallery.Width& " " &LoadImageFromGallery.Height&"BEFORE")
Dim ChangeColor As RSImageEffects
LoadImageFromGallery = ChangeColor.SepiaToning(LoadImageFromGallery,0,0,0,0)
Log(LoadImageFromGallery.Width& " " &LoadImageFromGallery.Height&"AFTER")
SourceImageRect.Initialize(0, 0, LoadImageFromGallery.Width, LoadImageFromGallery.Height)
TouchImageViewRect.Initialize(0, 0, TouchImageView1.Width, TouchImageView1.Height)
TouchImageView1.ScaleSrcRectToDestRect(SourceImageRect, TouchImageViewRect, "CENTER")
Log(LoadImageFromGallery.Width& " " &LoadImageFromGallery.Height&"POST")
TouchImageView1.SetBitmap(LoadImageFromGallery)