Basically, I'm trying to, with one push of a button, display about 20 numbers in a text box before it stops and settles on one number. I've tried a few things with no luck. Any ideas? This's what I've presently got down on moniter.

Code:
Private Sub cmdSpin_Click()
    Dim x As Integer, y As Integer
    Dim z As Integer, Total As Integer
    Dim Counter As Integer, Second As Long
    Counter = Counter + 1
    Do Until Counter = 50
        Counter = Counter + 1
        txt1 = Int(Rnd * 3 + 1)
        txt2 = Int(Rnd * 3 + 1)
        txt3 = Int(Rnd * 3 + 1)
        Do Until Second = 500
            Second = Second + 1
        Loop
    Loop
    Counter = 0
    Second = 0
End Sub
I also tried this to no avail. It would just slow down displaying the last number it settled on.
Code:
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)