You are all welcome to join our new Facebook page: https://www.b4x.com/android/forum/threads/new-facebook-group.167607
Public Sub BarcodeEAN13() As String
Dim brcod As String = Rnd(100000000,214000000)
brcod = "950" & brcod '<<< change the beginning 3...