How to make animation star

Animated images are often used to embellish the view, in the form vb we can also touch up the look with the animation. Here I give examples of animation in vb

Create a form with some labels and a timer, with propertis masing2 as follows:
Form -> backcolor = select color black, borderstyle-0 = none, 2 = windowstate-maximized.
Label1 dst ... -> Backstyle-transparant = 0, l = caption, font = webdings (size = 72), here I use the 35 labels (label1 name = s / d label35).
Timer1 -> interval = 100.

source code for the following:

Private Sub Timer1_Timer ()
Label1.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label2.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label3.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label4.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label5.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label6.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label7.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label8.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label9.ForeColor = RGB ( Rnd * 255, Rnd * 255, Rnd * 255) Label10.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label11.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label12. ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label13.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label14.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label15.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label16.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label17.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label18.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label19.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label20.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label21.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label22.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) = Label23.ForeColor RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label24.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label25.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label26.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label27.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label28.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label29.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label30.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label31.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label32.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label33.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label34.ForeColor = RGB ( Rnd * 255, Rnd * 255, Rnd * 255) Label35.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255)
End Sub