'**************************************
' Name: Background Music
' Description:Play background music on y
'     our application. Also shows how to use c
'     lickable "Play" and "Stop" commands. All
'     basic and easy to use sound commands.
' By: Mensrea / Spyder32
'
' Inputs:'Add a module to your project. 
'     Then add this line of code to it.

Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
    'That's it for the module. Name is irrel
    '     evant, originally I left mine as "Module
    '     1".
'
'This code is copyrighted and has' limited warranties.Please see http://w
'     ww.Planet-Source-Code.com/vb/scripts/Sho
'     wCode.asp?txtCodeId=50023&lngWId;=1'for details.'**************************************

'For to long I searched for a simple bac
'     kground music tag line. Or, for a way to

'     do "Play" and "Stop" functions, that I c
    '     ould use on Form_Load.
    'This is not award winning, it's just he
    '     re to help those in need. Simple and dir
    '     ectly to the point. I hope this helps, f
    '     eel free to e-mail me if needed.
    'To make your music (midi file) begin at
    '     startup, simple add this to Form_Load.

Private Sub Form_Load()

    Temp = mciSendString("play " & "NameOfMidiHere.mid", 0&, 0, 0)
End Sub

'Note: You must use an "Unload". Otherwi
'     se, the music continues when the applica
'     tion is closed. Which could be used to t
'     he benefit of a prank or annoyance. lol.
'     .. To do that just add this line:

Private Sub Form_Unload(Cancel As Integer)

    Temp = mciSendString("stop " & "NameOfMidiHere.mid", 0&, 0, 0)
End Sub

'To make a "Play" button (I used a label
'     , use what you wish):

Private Sub lblMusicOn_Click()

    Temp = mciSendString("play " & "NameOfMidiHere.Mid", 0&, 0, 0)
End Sub

'Now for the "Stop" button.

Private Sub lblMusicOff_Click()

    Temp = mciSendString("close " & "NameOfMidiHere.Mid", 0&, 0, 0)
End Sub

'I understand there are probably better 
'     and more sufficient ways to do this. I'm
'     sure the critics will point that out. Th
'     is is just one method, and it works. For
'     a beginner, that's what matters most of 
'     the time. I hope this helps someone...