how do you add music to an app and in what form?

put this in a module

Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

and add this to a command button or whatever

Private Sub Command1_Click()
Dim d As Long
Call PlaySound("c:\windows\desktop\dennis3\Genflit0.wav", d, d)
DoEvents
End Sub

d is just there as a blank thing.. because I dont know what the last to arguments are for
for some reason it kind of locks up.. it freezes the program you have to keep hitting the stop button(in the Vb IDE)
I am not sure why though.