求救,切换媒体播放的当前文件

我想当我点击list控件时,windows media player马上能转到我所点击的文件.
我的代码是:
Form1.MP1.Controls.pause
For w = 0 To Form1.MP1.currentPlaylist.Count
 pri_music = Form1.MP1.currentMedia.getItemInfo("title")
If InStr(1, List1.Text, pri_music) <> 0 Then
Set mymedia = Form1.MP1.currentPlaylist.Item(w - 1)
Form1.MP1.Controls.playItem (mymedia)
End If
Next
Form1.MP1.Controls.play
提示说Set mymedia = Form1.MP1.currentPlaylist.Item(w - 1)无效的属性或方法.我不知那里出了错.请各位指点一下,我要急用.谢谢大家