VB6 WMP控件溢出错误

堆栈控件溢出
对象‘URL’的方法‘IWMpplayer4’失败
请问这是神马问题？
搞不懂了，看了解释就更不明白了~~~
帮帮吧，欧系新手不想遭到打击呀我是楼主~~  第一个问题解决了，
又冒出来第二个问题，
对象'play'的方法'IWMPcontrols3‘失败
肿么解决呢~~~ 我还是楼主哦   大家看看，这段代码有神吗错误啊，我说的问题都是下面的代码出的问题啊！！！
Private Sub wmp1_OpenStateChange(ByVal NewState As Long)

Form1.wmp1.currentPlaylist.Clear
Dim f As Long
MyPath = "D:\酷我缓存\*.wma"    ' 指定路径。
myname = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While myname <> ""    ' 开始循环。
    ' 跳过当前的目录及上层目录。
   'MsgBox myname

        ' Form1.wmp1.currentPlaylist.appendItem Form1.wmp1.newMedia("D:\酷我缓存\%E4%B8%80%E5%89%AA%E6%A2%85.wmp")
         Form1.wmp1.currentPlaylist.appendItem Form1.wmp1.newMedia("D:\酷我缓存\" & myname)

    myname = Dir    ' 查找下一个目录。
Loop
wmp1.Controls.play
End Sub

补充：VB ,  控件

VB6 WMP控件 溢出错误

VB6 WMP控件溢出错误