Code to create a nice halo animation: Code is compatible with B4A, B4J and B4i. Sub CreateHaloEffect (Parent As B4XView, x As Int, y As Int, clr As Int) Dim cvs As B4XCanvas Dim p As B4XView = xui.CreatePanel("") Dim radius As Int = 150dip p.SetLayoutAnimated(0, 0, 0, radius * 2...
www.b4x.com