[VB6 ] 請問用VB寫出來的音樂撥放程式

[tten (沒圖沒真相~叭~)]

小弟這邊用VB寫出來一個很簡單的音樂撥放程式

Private Sub Timer5_Timer()

If WindowsMediaPlayer1.playState = 0 Or WindowsMediaPlayer1.playState = 1 Then
Select Case con
  Case 1

  WindowsMediaPlayer1.URL = "C:\111.m3u"
  Case 2

  WindowsMediaPlayer1.URL = "C:\222.m3u"
  Case 3

  WindowsMediaPlayer1.URL = "C:\333.m3u"
  End Select
  End If

End Sub

程式碼裡面出現的m3u是一個音樂列表
假設裡面有1~10首歌
我要如何能夠讓那10首歌隨機撥放
而不是到case1的時候就是放第一首歌,
case2的時候放case2的第二首歌
到時候發生case1的時候又再放case1的第一首歌
我希望可以隨機撥放case裡面的任何一首歌,
請問我該如何寫這個語法呢?
謝謝各位大大~

--
【 19 】佛光普照如達摩再世 真˙背影殺手 (Tten)

 狀  態 :   半獸人少林和尚(男性)﹐十八歲﹐正常。
 經  驗 :   670171
 陣  營 :   一代大俠
 狀  況 :   你覺得身體一切正常﹐精神飽滿。

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 219.68.58.229