求助：关于网络播放

Private Sub cmdPlay_Click()

Dim oMedia As IWMPMedia3

Dim oPlaylist As IWMPPlaylist

Dim isPlay As Boolean '是否空列表，空列表不执行播放操作

isPlay = False

Me.WindowsMediaPlayer1.Close

'设置播放列表

Set oPlaylist = Me.WindowsMediaPlayer1.playlistCollection.newPlaylist("视频播放列表" & Format(Now(), "YYYY-MM-DD HH:MM:SS"))

For i = 1 To Me.ListView1.ListItems.count

If Me.ListView1.ListItems(i).Checked = True Then

isPlay = True

'设置播放媒体

Set oMedia = Me.WindowsMediaPlayer1.newMedia(Replace(Me.ListView1.ListItems(i).Text, "\", "/"))

'将媒体添加到播放列表

oPlaylist.appendItem oMedia

End If

Next

'设置播放列表

Me.WindowsMediaPlayer1.currentPlaylist = oPlaylist

Me.WindowsMediaPlayer1.settings.autoStart = True

'列表不为空则进行播放

If isPlay = True Then

Me.WindowsMediaPlayer1.Controls.play

End If

End Sub

以上VB6代码执行后，没有播放效果，谁能帮帮我。