用两个命令键切歌为啥不行

Private Sub Command1_Click()
MMControl1.TimeFormat = 0
MMControl1.DeviceType = "waveaudio"
MMControl1.FileName = App.Path & "\电音2.wav"
= "open"
MMControl1.From = 0
MMControl1.To = 0
= "play"  '播放
MMControl1.TimeFormat = 0
MMControl1.DeviceType = "waveaudio"
MMControl1.FileName = App.Path & "\电音1.wav"
= "open"
MMControl1.From = 1
MMControl1.To = 99999
= "play"  '播放
End Sub

Private Sub Command2_Click()
MMControl1.TimeFormat = 0
MMControl1.DeviceType = "waveaudio"
MMControl1.FileName = App.Path & "\电音1.wav"
= "open"
MMControl1.From = 0
MMControl1.To = 0
= "play"  '播放
MMControl1.TimeFormat = 0
MMControl1.DeviceType = "waveaudio"
MMControl1.FileName = App.Path & "\电音2.wav"
= "open"
MMControl1.From = 1
MMControl1.To = 99999
= "play"  '播放
End Sub