Android Question Make a correct crop with panel

Sub Button1_Click
   
   Dim cvs As Canvas
   Dim bmp As Bitmap
   bmp.InitializeMutable(Panel2.Width, Panel2.Height)
   cvs.Initialize2(bmp)
   
  Dim Bitmap1 As Bitmap
   Bitmap1.Initialize3(TouchImageView1.TransformedBitmap)

  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,bmp.Width, bmp.Height)
   
  cvs.DrawBitmap(Bitmap1,SrcRect,DestRect)
   Dim out As OutputStream
   Dim filename As String
   filename = "testecrop.png"
  out = File.OpenOutput (File.DirDefaultExternal, filename ,  False)
   Log(cvs.Bitmap.Width & "x" & cvs.Bitmap.Height)
  cvs.Bitmap.WriteToStream(out,  100, "PNG")  
  out.Close
   
   If File.Exists(File.DirDefaultExternal, "testecrop.png") Then
   ToastMessageShow("Image Croped Saved on File.DirDefaultExternal & testecrop.png ", True)
   TouchImageView1.BackgroundImage = LoadBitmap(File.DirDefaultExternal,"testecrop.png") 'CARREGA A IMAGEM QUE FOI FEITO CROP NO LUGAR DO FUNDO PRETO
   End If
End Sub

Sub Button1_Click
    Dim cvs As Canvas
    cvs.Initialize(TouchImageView1)   
   
    Dim Bitmap1 As Bitmap
    Bitmap1.Initialize3(TouchImageView1.TransformedBitmap)

    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,100%x,100%y)
   
    cvs.DrawBitmap(Bitmap1,SrcRect,DestRect)
    Dim out As OutputStream
    Dim filename As String
    filename = "testecrop.png"
    out = File.OpenOutput (File.DirRootExternal, filename ,  False)
    Dim caca As Bitmap = CreateScaledBitmap(cvs.Bitmap, 200, 200, True)
    Log(caca.Width & "x" & caca.Height)
    caca.WriteToStream(out,  100, "PNG") 
    out.Close
   
    If File.Exists(File.DirRootExternal, "testecrop.png") Then
    ToastMessageShow("Image Croped Saved on File.DirDefaultExternal & testecrop.png ", True)
    TouchImageView1.BackgroundImage = LoadBitmap(File.DirRootExternal,"testecrop.png") 'CARREGA A IMAGEM QUE FOI FEITO CROP NO LUGAR DO FUNDO PRETO
    End If
End Sub

  Dim caca As Bitmap = CreateScaledBitmap(cvs.Bitmap, 200, 200, True)

Sub CreateScaledBitmap(Original As Bitmap, Width As Int, Height As Int, Filter As Boolean) As Bitmap
  Dim r As Reflector
  Dim b As Bitmap
  b = r.RunStaticMethod("android.graphics.Bitmap", "createScaledBitmap", _
      Array As Object(Original, Width, Height, Filter), _
      Array As String("android.graphics.Bitmap", "java.lang.int", "java.lang.int", "java.lang.boolean"))
  Return b
End Sub