'循环播放功能代码
        Try
            If AxWindowsMediaPlayer1.status = "已停止" Then
                Try
                    If AxWindowsMediaPlayer1.fullScreen = True Then
                        AxWindowsMediaPlayer1.fullScreen = False
                    End If
                Catch ex As Exception
                End Try
                '//播放条件判断
                If filelist.Count > intcount + 1 Then
                    AxWindowsMediaPlayer1.URL = filelist.Item(intcount + 1)
                    intcount = intcount + 1
                    ListView1.SetSelected(intcount, True)
                    Timer2.Enabled = True
                    Exit Sub
                End If
                intcount = intcount + 1
                '//循环条件判断
                If intcount = ListView1.Items.Count Then
                    intcount = 0
                    '//使其被选中
                    AxWindowsMediaPlayer1.URL = filelist.Item(intcount)
                    ListView1.SetSelected(intcount, True)
                    Timer2.Enabled = True
                End If
            End If
        Catch ex As Exception
            Try
                AxWindowsMediaPlayer1.URL = filelist.Item(0)
                intcount = 0
            Catch 'ex As Exception
                'Timer3.Enabled = False
                Timer3.Enabled = False
            End Try
        End Try

一运行就提示ListView1.SetSelected(intcount, True)这一行有错,我也知道这行错了,但是不会改!恳请会的同志帮帮手,在此先谢了!