German Größe von ImageView ändern

Sub btnCV_Click   'jpg-Datei anzeigen
  '
  PnlBlack.Initialize("PnlBlack")
  Dim bgnd As ColorDrawable
  bgnd.Initialize( Colors.ARGB(155,0,0,0),0)
  PnlBlack.Background = bgnd
  Activity.AddView(PnlBlack, 0, 0, 100%x, 100%y)    
  '   
  ImageView1.Initialize("img1")
  ImageView1.Bitmap = LoadBitmap(AppDir & "/Daten",jpgDatei)
  ImageView1.Gravity = Gravity.TOP
  PnlBlack.AddView(ImageView1,2%x,15%y,96%x,96%x)  
  '   
End Sub

Sub Globals
    Dim il As uil

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Layout1")
    il.Initialize("uil")

    'Acceptable URIs examples
    '"http://site.com/image.png" // from Web
    '"file:///mnt/sdcard/image.png" // from SD card
    '"file:///mnt/sdcard/video.mp4" // from SD card (video thumbnail)
    '"content://media/external/images/media/13" // from content provider
    '"content://media/external/video/media/13" // from content provider (video thumbnail)
    '"assets://image.png" // from assets
    '"drawable://" + R.drawable.img // from drawables (non-9patch images)
    il.loadImg("http://snapshots.basic4android.de/IconButton001.png",ImageView1)

Sub FitCenterBitmap(Imv As ImageView, Dir As String, FileName As String)
    Private bmp As Bitmap = LoadBitmap(Dir, FileName)
    Private cvs As Canvas
    cvs.Initialize(Imv)
    Dim rectDest As Rect
    Dim delta As Int
    If bmp.Width / bmp.Height > Imv.Width / Imv.Height Then
        delta = (Imv.Height - bmp.Height / bmp.Width * Imv.Width) / 2
        rectDest.Initialize(0, delta,Imv.Width, Imv.Height - delta)
        Else
        delta = (Imv.Width - bmp.Width / bmp.Height * Imv.Height) / 2
        rectDest.Initialize(delta, 0, Imv.Width - delta, Imv.Height)
        End If
        cvs.DrawBitmap(bmp, Null, rectDest)
    Imv.Gravity = Gravity.TOP
    Imv.Invalidate
End Sub

Imv.Gravity = Gravity.TOP