一个media player和 filelistbox控件的播放程序..请高手帮忙..

Question

想实现一连续播放指定目录里的mp3或wav文件的，程序..
在窗体上加一wmp控件，和filelistbox
其中flpics是那个filelistbox..用来读取声音文件（定位）
可总也调试不过呢，下面的gc是循环读取过程，而用common dialog..选文件可以调试通过，请高手帮忙啊..最好帮调试下，指正错误..谢谢了Option Explicit
Dim playfilename As String
Dim playposition As String
Private mscArray() As String
Private i As Integer
Private Sub pause_Click()
MediaPlayer1.pause
playposition = MediaPlayer1.CurrentPosition
End SubPrivate Sub play_Click()
gc
playposition = "\music\mp3\"
Command1.Enabled = True
Command3.Enabled = True
MediaPlayer1.FileName = playposition & flpics.list(i)MediaPlayer1.playEnd SubPrivate Sub stop_Click()
playposition = 0
Command3.Enabled = False
Command1.Enabled = False
Command2.Enabled = True
MediaPlayer1.Stop
End Sub
Private Sub Form_Load()
Command1.Enabled = False
Command3.Enabled = False
Command2.Enabled = TrueEnd Sub
Private Sub gc()
     For i = 0 To (flpics.ListCount - 1)
         flpics.list(i)
    Next iEnd Sub

Answer 1

变量i每次都重新赋值，好象不对。
应该再设一个变量j，j累加，i = j To (flpics.ListCount - 1)

Answer 2

刚看到，随便想的，你试试看
Private Sub gc()
  if i>=flpics.ListCount then i=0
     i=i+1
     flpics.list(i-1)
End Sub