COMO SABER COMO QUANTAS LINHAS SE REPETE

      [ô][ô][ô] <summary>
    [ô][ô][ô] Varre os links da página http://www.montargilforum.com/ncforum/archive/index.php e conta quantos links de tópicos existem
    [ô][ô][ô] </summary>
    [ô][ô][ô] <value></value>
    [ô][ô][ô] <returns>Retorna uma lista com os links dos tópicos existentes na página</returns>
    [ô][ô][ô] <remarks></remarks>
    Protected Friend ReadOnly Property Verificar_Topicos() As Collection
        Get
            Dim Verificar_Topicos_Temp = New Collection
            Dim TopicosExistentes As New Collection
            Dim InserirNovoTopico As Boolean [ô]Se True insere novo tópico
            Dim Arquivo As New StreamReader(Application.StartupPath & [Ô]    opicos.txt[Ô], System.Text.Encoding.Default)
            Dim Gravar As StreamWriter
            Dim Contador As Integer = 1

            With Form1.WebBrowser2
                Dim Divs As HtmlElementCollection = .Document.GetElementsByTagName([Ô]div[Ô])

                For A = 0 To Divs.Count - 1
                    If Divs(A).Id = [Ô]content[Ô] Then
                        Dim Links As HtmlElementCollection = Divs(A).Document.Links

                        [ô]Inicia o loop em 5 para começar já do Link GERAL - NOTÍCIAS
                        [ô]Termina em -2 para não pegar o link [Ô]Antigo Blog Vila de Montargil[Ô]
                        For B = 5 To Links.Count - 2
                            If Not Links(B).InnerText = Nothing Then Verificar_Topicos_Temp.Add(Links(B).InnerText)
                        Next
                        Exit For
                    End If
                Next

                While Not Arquivo.EndOfStream [ô]Loop na lista de tópicos para adicioná-los à coleção temporária
                    TopicosExistentes.Add(Arquivo.ReadLine)
                End While

                Arquivo.Close() [ô]Fecha o StreamReader

                [ô]Loop entre a lista de tópicos retornada da internet e a gravada no disco
                [ô]Caso a lista da internet retorne algum tópico diferente da lista gravada
                [ô]o novo tópico será inserido no arquivo e adicionado à ComboBox Links
                For Each Topico In Verificar_Topicos_Temp
                    If Not Trim(Topico) = Trim(TopicosExistentes(Contador)) Then
                        Gravar = New StreamWriter(Application.StartupPath & [Ô]    opicos.txt[Ô]) [ô]Abre o arquivo para gravação
                        Gravar.WriteLine(Topico) [ô]Grava o novo tópico no arquivo
                        Form1.Links.Items.Add(Topico) [ô]Insere o novo tópico no arquivo
                    End If
                    Contador += 1 [ô]Incremente 1 para a lista de tópicos existentes possa verificar cada item
                Next

                Try
                    Gravar.Close() [ô]Fecha o Stream caso esteja aberto
                Catch ex As Exception

                End Try

            End With
            Verificar_Topicos = Verificar_Topicos_Temp
            Return Verificar_Topicos
        End Get
    End Property 

 Dim Gravar as New StreamWriter(Application.StartupPath & [Ô]    opicos.txt[Ô]) [ô]Abre o arquivo para gravação