Sonidos Wav en objeto Ole

[truskyvb]

Buenas a todos. Estoy haciendo una especie de reproductor pero me atasco en un objeto OLE. Os agradezco de antemano la ayuda.
El código es:

Private Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long


Private Sub Command1_Click()
Dim SoundFile As String, ReturnLength As Long
SoundFile = Dir("C:\WINNT\Media\" & "*.wav")

Aquí está el problema, ya que el wav no está en un directorio, está incrustado en un objeto Ole llamado OLE1, y no sé como hacer la llamada:
SoundFlie = ????????

Result = sndPlaySound(SoundFile, 1)

Gracias por vuestra atención y ayuda. Un saludo

[truskyvb]

Hola de nuevo, espero no estar abusando y que podais ayudarme.
Buscando soluciones a como plantear un reproductor, otra opción es incrustar una canción en un objeto ole.
Con la orden DoVerb, la canción se ejecuta, pero abre el reproductor que tengas asignado por defecto.
¿Se puede evitar que abra el reproductor, o como conseguir que el reproductor se ejecute minimizado?.
Gracias por todo.
Un saludo