i think the best result you can achieve with a particle system.
it is just a list of particles, each paint a small picture
and all are updated each frame in rotation or position.
they will be removed after time or out of screen or if limit is reached the oldest will removed from list.
the main animated drawing loop is just this, Martin.
B4X:
For x=particles.Size-1 To 0 Step-1
Dim p As particle
p=particles.Get(x)
p.x=p.x + Cos(p.angle) * 4
p.y=p.y + Sin(p.angle) * 4
p.size=p.size - Rnd(1,3)
cvsSplash.DrawCircle(p.x,p.y,p.size,fx.Colors.From32Bit(p.color),True,0)
Next
the main animated drawing loop is just this, Martin.
B4X:
For x=particles.Size-1 To 0 Step-1
Dim p As particle
p=particles.Get(x)
p.x=p.x + Cos(p.angle) * 4
p.y=p.y + Sin(p.angle) * 4
p.size=p.size - Rnd(1,3)
cvsSplash.DrawCircle(p.x,p.y,p.size,fx.Colors.From32Bit(p.color),True,0)
Next
the question is how the particle object looks like. is it a type object?
can you post a complete project that show how you did that animation. it looks really nice.