2 патока 1 листбокс

[strelec]

добрый времени суток всем. есть 1 паток в котором происходит событие и добавляется в форме листбокс

пример

Код: Выделить всё

Imports System.Threading
Public Class Form1
    Dim WithEvents cl As New Class1
    Dim theard1 As New Threading.Thread(AddressOf cl.cikl)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        theard1.Start()
    End Sub
    Sub add_list(ByVal n As String)
        ListBox1.Items.Add(n)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler cl.event1, AddressOf add_list
    End Sub
End Class

Public Class Class1
    Public Event event1(ByVal maks_number As String)
    Public Sub cikl()
        For maks_number = 1 To 10000
            If maks_number = 10000 Then
                RaiseEvent event1(maks_number)
            End If
        Next
    End Sub

End Class

ошибку выдает такой

Недопустимая операция в нескольких потоках: попытка доступа к элементу управления 'ListBox1' не из того потока, в котором он был создан.

что можно сделать ? как можно осуществит добавление в листбока с другого патока
заранее спс

[FireFenix]

2 патока

Патока

Если всё же имелся ввиду поток, то что мешало использовать поиск по форуму?

viewtopic.php?f=2&t=42188&start=0 - вагон примеров

[Денис]

[offtop]Grammatik macht frei[/offtop]