گرد کردن عکس

سلام دوستان شب خوش

من یه کد از یه مطلب آموزشی به برنامم اضافه کردم که عکس بارگذاری شده رو گرد نشون بده اما موقع اجرا اررهایی میده که خدمتتون میفرستم و امیدوارم لطف کنید راهنماییم کنید

ممنون

Sub Activity_Create(FirstTime As Boolean)Activity.LoadLayout(“lpic”)
ImageView1.Bitmap=circleimage(LoadBitmap(File.DirAssets,”profilepic.png”))
End Sub

Sub circleimage(image As Bitmap) As Bitmap
Dim bmp As Bitmap
bmp.InitializeMutable(200dip,200dip)
Dim cvs As Canvas
cvs.Initialize2(bmp)
Dim r As Rect
r.Initialize(0,0,bmp.Width,bmp.Height)
cvs.DrawRect(r,Colors.Transparent,True,0)
Dim p As Path
p.Initialize(0,0)
Dim jo As JavaObject=p
Dim x=100dip,y=100dip,radius=100dip As Float
jo.RunMethod(“addcircle”, Array As Object(x,y,radius,”cw”))
cvs.ClipPath(p)
Dim r2 As Rect
r2.Initialize(0,0,cvs.Bitmap.Width,cvs.Bitmap.Height)
cvs.DrawBitmap(image,Null,r2)
Return cvs.Bitmap

End Sub