停止音乐播放有关问题-连续按好几下按键才有效果(新手求指教啊)

停止音乐播放问题-----连续按好几下按键才有效果(新手求指教啊)
    Dim Player As Object

    Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        tCount -= 1

        If tCount = 69 Then
            Player = CreateObject("wmplayer.ocx")
            Player.controls.currentPosition = 0   '从0开始播放   改为15 为从15秒开始播放
            Player.settings.setMode("loop", 1)   '0 为播放一次  1为循环播放
            Player.settings.volume = 80          '音量为80
            Player.url = "F:\歌曲\日不落.mp3"
            Player.controls.play()
        End If

        If tCount >= 0 Then
            Label3.Text = tCount
        End If

        If tCount = 0 Then
            MsgBox("时间到")
            Timer1.Enabled = False
        End If
        Exit Sub
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Player = CreateObject("wmplayer.ocx")      
        Player.controls.stop()                                           '------------------就是这个该怎么弄啊,可以使按键一次出停止音乐播放效果


        Timer1.Enabled = False
        tCount = 70
        Timer1.Interval = 1000 '每秒执行一次        
        Timer1.Enabled = True
    End Sub
------解决方案--------------------
每交都CreateObject("wmplayer.ocx")   ，这能停下来么？我很好奇你这是怎么停下来的！

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

         Player = CreateObject("wmplayer.ocx")     //删除掉就好啦