Sub btAssociar_Click
Dim cvs As Canvas
cvs.initialize(Panel1)
Dim SrcRect As Rect
SrcRect.Initialize( Panel2.Left , Panel2.Top , Panel2.Left + Panel2.Width ,Panel2.Top + Panel2.Height)
Dim DestRect As Rect
DestRect.Initialize(0%x,0%y,Main.imageToCrop.Width, Main.imageToCrop.Height)
Dim Bitmap1 As Bitmap
Bitmap1 = cvs.CreateBitmap
ImageView1.Bitmap = Bitmap1
ImageView1.BringToFront
ImageView1.Visible = True
DrawBitmap(cvs, Bitmap1,SrcRect,DestRect)
ImageView1.Bitmap = cvs.CreateBitmap
ImageView1.BringToFront
ImageView1.Visible = True
End Sub