I think you have to use your imagination a lot if your going to just make some cool animation
Here's an example i made:
Code:
Private Sub Command1_Click()
x = Rnd * ScaleWidth: y = Rnd * ScaleWidth
For n = 0 To 200
Rnd -1
Randomize a
b = ScaleWidth / 2
Do
b = b * 0.95: a = a + b / 100
Line -(x - Cos(a) * b, y - Sin(a) * b), Rnd * &H1000000
Loop Until b < 10
DoEvents
Next n
End Sub
For positioning randomly you use RND function (that returns a "random" value between 0 and 1) And use scalewidth and scaleheight to return your form size.