How do I add a visual aspect to my macro??

[b_rianv]

I would like to add some visual aspects to my lottery macro. Like numbers flipping through the range as they appear (and I can control how long they flip through the range) and maybe a little rand () function as the numbers are picked. How would I do this and where would I add these two aspects???
Can someone give me some help please?

Thank you,

Here is my code I am working with.

Const l&         'lower value
Const u& =       'upper value
Const n& =         'number of numbers per draw
rws = 100       'number of lottery draws
ReDim a(1 To rws, 1 To n)

Randomize
For i = 1 To rws
    ReDim b(l To u): k = 0: s = ""
    Do
        x = Int(Rnd * u) + l
 
End Sub