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

VB Code:
  1. If mpMain.PlayState = mpStopped Then

  2.     UpperBound = Upper + 1

  3.     LowerBound = 0

  4.     

  5.     Upper = UBound(arrSongs)

  6.     

  7.     Randomize

  8.     

  9.     SongNum = Int((UpperBound - LowerBound + 1) * Rnd + LowerBound)

  10.     NAAAS.mpMain.Filename = arrSongs(SongNum)

  11.     

  12.     Text2.Text = arrSongs(SongNum)

  13. End If