Depende, Tu quieres escuchar la muscia tan pronto se inicie el formulario? si es eso entonces todo depende de la coneccion que tengas, ya que dices que tu musica esta en el internet.
Usa el MCI API
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnStr
ing As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Usa las librerias de Windows XP para bajar Archivos del internet y almacena la musica en un temp.
Private Declare Function URLDownloadToF
ile Lib "urlmon" _
Alias "URLDownloadToF
ileA" (ByVal pCaller As Long, _
ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
' La utilizas en el Form_initializ
e o lo que sea
Private Sub Form_Initializ
e()
'bajando el archivo
URLDownloadToF
ile 0, _
"
Para ver este enlace Registrate o Inicia Sesion", _
"C:\temp.wav", 0, 0
'--------------------
End Sub
Private Sub Form_load()
'Y luego ya sabes que hacer, Tocarla mandando un MCISendString
'Ejemplo: Dim snd As String
snd = mciSendString(Open "C;\temp.wav" type waveaudio alias MyFirstSound)
' play MyFirstSound
' creo que es algo asi no estoy seguro. Beno enfin aqui hay mucha gente que te pueden ayudar.
End Sub
NOTA: Creo que puede que tarde bastante en abrir tu formularion por que el Form_Initializ
e viene antes que el form load.
espero que te ayude!
Autor