randomize not working

[Dr.Sparkle]

Why is this not picking a random song for me? It worked like once, then kept playing the same song..

If mpMain.PlayState = mpStopped Then
    UpperBound = Upper + 1
    LowerBound = 0
    
    Upper = UBound(arrSongs)
    
    Randomize
    
    SongNum = Int((UpperBound - LowerBound + 1) * Rnd + LowerBound)
    NAAAS.mpMain.Filename = arrSongs(SongNum)
    
    Text2.Text = arrSongs(SongNum)
End If

[dmbyer]

LowerBound never changes, it's always 0. Not sure if it'd change anything, but, something to point out.. you might as well just use hard code numbers, rather than variables for them.

[Dr.Sparkle]

I can't hardcode the numbers. Cause the array it uses is not always the same size..

[Janus]

try this

Randomize Timer
    
    SongNum = Int((CSng((UpperBound - LowerBound) + 1) * Rnd) + LowerBound)

[Dr.Sparkle]

It still plays the same two songs.. Same as before also. So ther must be something else cause it to lean to thoes two songs.. But what is it?

[Janus]

That's because UpperBound is probably 1.
Make it UBound(arrSongs) instead of Upper + 1.

[Dr.Sparkle]

I got it working. I was just loading a small list and by chance getting the same songs.. I think. It seems to be working now. thanks..