Q: Showing numbers at random on label
Well they do actually change and the colours are working but I wanted to get an affect that when I click my cmdButton the numbers look like they are swapping and changing until it finally comes to rest. Can anyone explain to me and show me how to make my numbers look like they are changing in the lblBox until it eventually stops on one number Please. Dim Zeros, Sessions, EurValue, WinningNum, WinningNumber, Spins, Results, Rotation As Integer Do Spin = Spin + 1 Randomize Timer EurValue = 0 EurValue = Int((38 * Rnd) + 0) WinningNum = Int((24 * Rnd) + 1) WinningNumber = Int((50 * Rnd) + 1) Spins = WinningNum + WinningNumber Zeros = "00" 'Set Numbers Colours lblWinningNumber.ForeColor = &HFFFF& lblWinningNumber.BackColor = &HFF& If (EurValue = 0) Or (EurValue = 37) Then lblWinningNumber.BackColor = &H8000& End If If (EurValue = 2) Then lblWinningNumber.BackColor = &H0& Else If (EurValue = 4) Then lblWinningNumber.BackColor = &H0& Else If (EurValue = 6) Then lblWinningNumber.BackColor = &H0& Else If (EurValue = 8) Then lblWinningNumber.BackColor = &H0& Else If (EurValue = 10) Then lblWinningNumber.BackColor = &H0& Else If (EurValue = 11) Then lblWinningNumber.BackColor = &H0& Else If (EurValue = 13) Then lblWinningNumber.BackColor = &H0& Else If (EurValue = 15) Then lblWinningNumber.BackColor = &H0& Else If (EurValue = 17) Then lblWinningNumber.BackColor = &H0& Else If (EurValue = 20) Then lblWinningNumber.BackColor = &H0& Else If (EurValue = 22) Then lblWinningNumber.BackColor = &H0& Else If (EurValue = 24) Then lblWinningNumber.BackColor = &H0& Else If (EurValue = 26) Then lblWinningNumber.BackColor = &H0& Else If (EurValue = 28) Then lblWinningNumber.BackColor = &H0& Else If (EurValue = 29) Then lblWinningNumber.BackColor = &H0& Else If (EurValue = 31) Then lblWinningNumber.BackColor = &H0& Else If (EurValue = 33) Then lblWinningNumber.BackColor = &H0& Else If (EurValue = 35) Then lblWinningNumber.BackColor = &H0& End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If (EurValue = 1) Then lblWinningNumber.BackColor = &HFF& Else If (EurValue = 3) Then lblWinningNumber.BackColor = &HFF& Else If (EurValue = 5) Then lblWinningNumber.BackColor = &HFF& Else If (EurValue = 7) Then lblWinningNumber.BackColor = &HFF& Else If (EurValue = 9) Then lblWinningNumber.BackColor = &HFF& Else If (EurValue = 12) Then lblWinningNumber.BackColor = &HFF& Else If (EurValue = 14) Then lblWinningNumber.BackColor = &HFF& Else If (EurValue = 16) Then lblWinningNumber.BackColor = &HFF& Else If (EurValue = 19) Then lblWinningNumber.BackColor = &HFF& Else If (EurValue = 21) Then lblWinningNumber.BackColor = &HFF& Else If (EurValue = 23) Then lblWinningNumber.BackColor = &HFF& Else If (EurValue = 25) Then lblWinningNumber.BackColor = &HFF& Else If (EurValue = 27) Then lblWinningNumber.BackColor = &HFF& Else If (EurValue = 30) Then lblWinningNumber.BackColor = &HFF& Else If (EurValue = 32) Then lblWinningNumber.BackColor = &HFF& Else If (EurValue = 34) Then lblWinningNumber.BackColor = &HFF& Else If (EurValue = 36) Then lblWinningNumber.BackColor = &HFF& End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If 'Print Number to the screen If (EurValue <> 37) Then lblWinningNumber.Caption = EurValue Else lblWinningNumber.Caption = Zeros End If For Pause = 1 To 1000 Step 1 Next Pause Loop Until (Spin = 50) End Sub A A lots of If .. Then; maby you must use Select Case. In the example I have made the right adjustments for showing the random number (by adding two lines of code and one Sub). I also have changed the If.. Then into a Select Case. Get the example (7 Kb). Return