Public Sub Ajusta_Imagem1(ivImagem As ImageView,pastaImagem As String,nomeImagem As String)
#IF B4A
ivImagem.SetBackgroundImage(XUI.LoadBitmapResize(pastaImagem, nomeImagem, ivImagem.Width, ivImagem.Height, True)).Gravity = Gravity.CENTER
#ELSE IF B4I
Dim scale As Float = GetDeviceLayoutValues.NonnormalizedScale
ivImagem.Bitmap = LoadBitmapResize(pastaImagem,nomeImagem,ivImagem.Width * scale,ivImagem.Height * scale,True)
#End If
End Sub