imT.Initialize()
Dim iv As ImageView
iv.Initialize("")
iv.SetLayoutAnimated(0, 1, 0,0,WebView1.Width,WebView1.Height)
Dim cvs As Canvas
cvs.Initialize(iv)
cvs.DrawView(WebView1, cvs.TargetRect)
Log(WebView1.Width)
cvs.Refresh
Dim bm As Bitmap
bm=cvs.CreateBitmap
ImageView1.Bitmap=bm
Dim sx,sy As Float
sx=ImageView1.Bitmap.Width/ImageView1.Width
sy=ImageView1.Bitmap.Height/ImageView1.Height
ImageView1.Bitmap=imT.CropImageRect(ImageView1.Bitmap,pnlCrop.Left*sx,pnlCrop.Top*sy,pnlCrop.Width*sx,pnlCrop.Height*sy)