This library gives you avatar like Telegram.
You can set color or use unique color based on your label.
Sample Code:
Dim AG As AvatarGenerator
AG.Initialize.AvatarSize(64).TextSizePercentage(50).Label(Name).ToCircle
AG.Build 'To get bitmap
AG.Build2 'To get bitmapdrawable
B4A Library...