用API函數Mcisendstring直接播放背景音樂

源代碼：
　　PrivateSubCommand1_Click()
　　Dimback
　　back=mciSendString&("CLOSENN",0,0,0)
　　EndSub
　　
　　PrivateSubCommand2_Click()
　　Dimback
　　back=mciSendString&("OPEN" App.Path "TEST.mid" "TYPESEQUENCERALIASNN",0&,0,0)
　　back=mciSendString&("PLAYNNFROM0",0&,0,0)
　　R=mciSendString&("CLOSEANIMATION",0&,0,0)
　　EndSub
　　
　　PrivateSubForm_Load()
　　Dimback
　　back=mciSendString&("OPEN" App.Path "TEST.mid" "TYPEWaveAudioALIASNN",0&,0,0)
　　back=mciSendString&("PLAYNNFROM0",0&,0,0)
　　R=mciSendString&("CLOSEANIMATION",0&,0,0)
　　EndSub->