Sub Page1_Click
Dim c As Canvas
c.Initialize(Page1.RootPanel)
c.DrawCircle(100dip, 100dip, 100dip, Colors.Red, True, 0)
c.Refresh
Dim r As Rect
r.Initialize(200dip, 200dip,300dip, 300dip)
Dim b As Bitmap = c.CreateBitmap.Crop(0, 0, 100dip, 100dip)
c.DrawBitmap(b, r)
c.Refresh
c.Release
End Sub