Sub Image_RoundCorners(img As ImageView, imgDir As String, imgPath As String, imgRadius As Int)
Dim b As Bitmap
Dim rsie As RSImageEffects
Dim rsip As RSImageProcessing
rsip.Initialize
b = LoadBitmapSample(imgDir, imgPath,100%x, 100%y)
b = rsip.createScaledBitmap(b, img.width, img.height, False) ' createScaledBitmap seems to produce a better compressed image
img.Bitmap = rsie.RoundCorner(b, imgRadius) ' round bitmap corners
End Sub