为啥 MMControl 只能播放一次

Question

我在窗体上添加了一个MMControl控件，然后用一个按钮控制它的播放，代码如下Private Sub CommandPlay_Click()   
    Form1.MMControl1.FileName = "C:\WINDOWS\Media\Windows XP 关机.wav"
    Form1.MMControl1.Command = "Open"
    Form1.MMControl1.Command = "Play"
End Sub程序运行以后，当我第一次点击按钮的时候，能够播放声音。当第二次点击的时候，程序也运行了，但是就是没声。

Answer 1

close一下吧
在函数最前面加上
MMControl1.Command = "Close"

Answer 2

Private Sub Form_Load()
    midi.Notify = False
    midi.Wait = False
    midi.Shareable = False
    midi.DeviceType = "sequencer"
End Sub
Sub MIDIPlay(MidiName As String)
    midi.Command = "Stop"
    midi.Command = "Close"
    midi.filename = MidiName + ".mid"
    midi.Command = "Open"
    midi.Command = "Play"
End Sub

Answer 3

Private Sub CommandPlay_Click()   
  Form1.MMControl1.FileName = "C:\WINDOWS\Media\Windows XP 关机.wav"
  Form1.MMControl1.Command = "Open"
MMControl1.From = 0
  Form1.MMControl1.Command = "Play"
End Sub

Answer 4

Private Sub CommandPlay_Click()   
  Form1.MMControl1.FileName = "C:\WINDOWS\Media\Windows XP 关机.wav"
  Form1.MMControl1.Command = "Open"
  MMControl1.From = 0'添加这一句
  Form1.MMControl1.Command = "Play"
End Sub