Visual Basic - Sonido

Hola !!, quiero reproducir sonido en mi aplicacion prove con el siguiente codigo pero me da error de compilacion :

Private Sub browse_Click()
CommonDialog1.ShowOpen
List1.ListBox = CommonDialog1.Filename
End Sub

On Error Resume Next
If List1.ListBox = "" Then
MsgBox "Please Browse or Enter a File in the Text Box", vbOKOnly + vbCritical, "Geez..."
Else
sndPlaySound List1.ListBox, 0
i = mciSendString("open " & List1.ListBox & " type sequencer alias myfile", 0&, 0, 0)
i = mciSendString("play myfile wait", 0&, 0, 0)
i = mciSendString("close myfile", 0&, 0, 0)
End If

Quiero hacer una pequeña lista de reproduccion, alguien podria decirme donde esta el error.

el myfile no es ningun comando que reconosca vb. investigais por ay.

Al ejecutarlo me da como error el "ShowOpen"

yo creo que que falta es poner el control commondialog en el formulario.
lo ponès y despos nos desis como os fue.
pd. no ase falta k des las grasias como nadie lo ase no se ba a notar

Hola !! no ecuentro este control en la barra de herramientas.

buscais el control en la barra de herramientas???

Pues, si. Donde si no ?