(Resolvido) ajuda, resultado do webbrowser em uma label ou textbox (refresh)

[Cristiano Siqueira 0]

Boa tarde, tive qeu reabrir o topico pois embora eu tenha conseguido colocar o texto do webbrowser na label infelizmente não estou conseguindo atualizar ela a cada suponha 6 segundos, segue abaixo o código que estou usando no VB, agradeço a ajuda 

 

Public Class Form1

 

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        WebBrowser1.Refresh()

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Me.WebBrowser1.Navigate("url do conteudo a ser pego")

        Try
            If Not IsNothing(WebBrowser1.Document) Then
                Dim elementos = WebBrowser1.Document.GetElementsByTagName("span") 
                If (Not IsNothing(elementos) And elementos.Count > 0) Then
                    Dim i As Integer = 0
                    While (i < elementos.Count AndAlso Not elementos.Item(i).OuterHtml().Contains("texto_musica"))
                        i += 1
                    End While
                    If (i < elementos.Count) Then
                        resultado = elementos.Item(i).InnerText
                        Label1.Text = resultado 
                    End If
                End If
            End If

        Catch ex As Exception

        End Try

        Timer1.Enabled = True
        Timer1.Interval = 3000
        Timer1.Start()

    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click


    End Sub

    Dim resultado As String

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

	
    End Sub

End Class