Italian [Risolto] QR Code [b4j]

Private Sub QrCode(value As String) As Boolean
    Dim QRGenerator1 As QRGenerator
    QRGenerator1.Initialize(B4XImageView1.mBase.Width)
    B4XImageView1.Bitmap = QRGenerator1.Create(value)
    B4XImageView1.ResizeMode = "FILL"
    B4XImageView1.mBackgroundColor = xui.Color_White
    B4XImageView1.Update
End Sub