Private Sub GenerateLabels(nbrLettre As String)
Dim lblName(nbrLettre) As B4XView
Dim allChar() As String 'for all characters in the string
allChar = Regex.Split("",citation) 'all characters in the citation string
Dim dist As Int = 2dip
For i = 0 To nbrLettre-1
Private lbl As Label
lbl.Initialize("view")
lbl.SetBackgroundImage(LoadBitmap(File.DirAssets, "card.png"))
lblName(i) = lbl
lblName(i).Tag = allChar(i)&","&i
lblName(i).Text = allChar(i)
lblName(i).SetTextAlignment("CENTER","CENTER")
lblName(i).TextColor = Colors.black
lblName(i).Font = myFont
pnlCrypto.AddView(lblName(i), dist, 5dip, 10dip, 25dip)
dist = dist + 10dip
Next
End Sub