求助：关于网络播放

 

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代码执行后，没有播放效果，谁能帮帮我。