Получение списка mp3 файлов на сайте и их поочередное воспроизведение

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
 
Private Sub Command1_Click()
Call mciExecute("play http://mptron.com/data/mp3/09112011/gleb_klubni4ka__evgenii_kuzin_-_ya_tvoi_geroi.mp3") 'чтобы воспроизвести файл
End Sub
 
Private Sub Command2_Click()
Call mciExecute("close http://mptron.com/data/mp3/09112011/gleb_klubni4ka__evgenii_kuzin_-_ya_tvoi_geroi.mp3") 'чтобы закрыть файл
End Sub

Private Declare Function mciExecute Lib "winmm.dll" _
        (ByVal lpstrCommand As String) As Long
        Dim Musik As String
 
Private Sub Command1_Click()
Call mciExecute("play _mysound_") 'from x to y проигрывает файл с позиции x и до позиции y
End Sub
 
Private Sub Command2_Click()
Call mciExecute("Pause _mysound_")
End Sub
 
Private Sub Command3_Click()
Call mciExecute("Stop _mysound_")
Call mciExecute("close _mysound_")
End Sub
 
Private Sub Command4_Click()
Musik = "http://dragokas.16mb.com/Forum/Dl/Anastacia.mp3"
Call mciExecute("open " + Chr$(34) + Musik + Chr$(34) + " alias _mysound_")
End Sub

Musik = Text1.Text

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
 
Private Sub Command1_Click()
Call mciExecute("play Text1.text") 'чтобы воспроизвести файл
End Sub
 
Private Sub Command2_Click()
Call mciExecute("close Text1.text") 'чтобы закрыть файл
End Sub

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
 
Private Sub Command1_Click()
Call mciExecute("play http://goodfiles.ucoz.com/ifollow.mp3") '÷òîáû âîñïðîèçâåñòè ôàéë
End Sub
 
Private Sub Command2_Click()
Call mciExecute("close http://goodfiles.ucoz.com/ifollow.mp3") '÷òîáû çàêðûòü ôàéë
End Sub