Private Sub btnGrabar_Click
'TOMAR FOTO
Dim foto As String
Dim filename As String = AuxId & ".jpg"
Dim dir As String = File.DirRootExternal
'Dim dir As String = File.DirAssets
camEx.TakePicture
'Dim bd As BitmapDrawable
'bd.Initialize(LoadBitmap(File.DirAssets, AuxId & ".jpg"))
'bd.Gravity = Gravity.FILL
'Panel1.Background = bd
'ImageView1.Bitmap = LoadBitmapResize(File.DirRootExternal, AuxId & ".png", ImageView1.Width, ImageView1.Height, True)
ImageView1.Bitmap = LoadBitmapSample(dir, filename, ImageView1.Width, ImageView1.Height)
ImageView1.Gravity = Gravity.CENTER
End Sub