Sub SetPixelColor(aBitmap As Bitmap,X As Int,Y As Int, Color As Int) As Bitmap
Dim Scale As Float = GetDeviceLayoutValues.NonnormalizedScale
Dim img As ImageView
img.Initialize("")
img.Width = aBitmap.Width / Scale
img.Height = aBitmap.Height/ Scale
img.Bitmap = aBitmap
Dim cvs As Canvas
cvs.Initialize(img)
Dim PointRect As Rect
PointRect.Initialize(X/Scale,Y/Scale,(X+1)/Scale,(Y+1)/Scale)
cvs.DrawRect(PointRect,Color,True,1/Scale)
Dim res As Bitmap = cvs.CreateBitmap
cvs.Refresh
Return res
End Sub