Well the click event of the button should STOP the intro song and load the new song. Iv done this before but havent the code on me at the moment, What i would do is create a sub that take a path ask the argument (which is the path of the song) and loads the song, then all you would do is something like this
Sub Intro()
LoadSong(app.path" & "\" & "IntroSong.wav")
End sub
Sub Command1_click()
StopSong()
LoadSong(app.path & "\" & "NewSong.wav")
End sub
Sub LoadSong(P as String)
MusicPlayer.play song P
end LoadSong
Sub EndSong()
MusicPlayer.Stop
End sub
obviously this isnt the real code just an example of how it could be done. |