Playing sound [SEMI-resolved]

[Electroman]

Doe anyone know how I can write a program to play sound but don't just want to use the API:

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

Because I also what to be able to pause and use an equalizer. I don't mind if you only know of controls that do this but I'd prefer to be able to do this from just code.
Thanx for any help.

[manavo11]

You can use the Microsoft Multimedia Control 6.0. Under the play button add :

Private Sub cmdPlay_Click()
 If Not mciPlayer.Mode = mciModeNotOpen Then
  mciPlayer.Command = "Close"
 End If
 mciPlayer.FileName = 'set a filename here
 mciPlayer.Command = "Open"
 mciPlayer.Command = "Play"
End Sub

And under the stop button add :

Private Sub cmdStop_Click()
  mciPlayer.Command = "Close"
End Sub

[MarkT]

Attached is a multimedia project I put together while working through a lesson one time. It is all API driven.

[Electroman]

Thanx but its important that I can have a equalizer and I don't think the Microsoft Multimedia Control 6.0 had it when I was playing with it earlier. As for the project MarkT i don't know if yours has one but i'll have a look in a minute when I come off-line.
Thanx anyway tho.

[manavo11]

Check this out.

[Electroman]

I looked at the file at the other form manavo11 and its really great but i'm not sure how I can use this to create an equalizer, you know what I mean? like to adjust the amount of bass and treble being played.

[manavo11]

Is this anything like what you want?

[manavo11]

Don't have time to look through. Check it out.

[manavo11]

Another one.

[Electroman]

I've sort of solved the problem, I've managed to put the attached project together so far. Its made up of mainly the first example manavo11 gave a link to, but I've added my own code using some tutorials. I added the Procedure "ApplyEq()" but it only sort of works, I think its just that I can't work out what values to use for the frequenceys and bandwidths, if you look at the code I've marked out in the "ApplyEq()" procedure what I mean. Thanx for all the links tho manavo11.
Does anyone have any ideas?
Thanx

[Electroman]

Heres the file...