Mp3/midi/mpg/whatever module

[Tom Norris]

'the MP3 API, can probably be used for other stuff too
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
'the variable that holds the name of the song
Public currentsong

Sub playsong(currentsong)
'play the mp3
mciSendString "play " & currentsong, 0, 0, 0
End Sub

Sub stopsong()
'stop the song
mciSendString "stop " & currentsong, 0, 0, 0
End Sub

[Michael]

thank's kaboofanator