Visual Basic.NET - Sr

Hola a todos:

Espero puedan ayudarme, al correr el siguiente codigo me marca una exception al dar click en el boton, he intentado con varios ejercicio usar hilos y siempre me marca la exception de System.InvalidOperationException....

codigo:

Imports System.Threading

Public Class Form1

Private trd As Thread

Private Sub ThreadTask()

For i As Integer = 1 To 10000
Me.lstProceso.Items.Add("Contador: " & i)
For aux As Integer = 1 To 50000
' retardo
Next
Next
' finalizamos la hebra
trd.Abort()
End Sub

Private Sub btnIniciar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIniciar.Click
' instanciar la hebra y ponerla en marcha
' en el constructor de la hebra, indicamos
' qué procedimiento deberá ejecutar al ser iniciada
trd = New Thread(AddressOf ThreadTask)
trd.Start()
End Sub
End Class

Espero este ejemplo te sirva.

Pues para actualizar los controles en hilo UI desde el fondo hilo tomara ventaja de los delgados

Solo ensaya

Public Class Form1
Public Sub UpdatelstProceso(ByVal msg As String)
Me.lstProccess.Items.Add(msg)
End Sub
Private Sub btnIniciar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
Dim bk As New BackgroundWork(Me)
Dim t As New Threading.Thread(AddressOf bk.ThreadTask)
t.Start()
End Sub
End Class Public Class BackgroundWork
Private mForm As Form1
Private Delegate Sub UpdateListboxHandler(ByVal msg As String)
Sub New(ByVal f As Form1)
Me.mForm = f
End Sub
Public Sub ThreadTask()
For i As Integer = 1 To 10000
Dim msg As String = "Counter: " & i
Dim u As New UpdateListboxHandler(AddressOf Me.mForm.updatelstprocess)
Me.mForm.Invoke(u, New Object() {msg})
For aux As Integer = 1 To 50000
Next
Next
End Sub
End Class