Private demoThread As System.Threading.Thread = Nothing
    Private obj As Object = Me
 
    Private Sub uc_TextBox_Enter(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Enter
        Try
            Me.demoThread = New System.Threading.Thread _
            (New System.Threading.ThreadStart(AddressOf Me.ThreadProcUnsafe))
 
            Me.demoThread.Start()
        Catch ex As Exception
        End Try
    End Sub
 
    Private Sub ThreadProcUnsafe()
        Co_SystemComponent1.RaiseSystemEvent.couseEvent_DynamicHelpAdd( _
          obj.HelpItems.HelpItemsCollection)
    End Sub

    Private Sub initMe()
        AddHandler cup_System.cls_System_Events.DynamicHelpAdd, AddressOf _
          DynamicHelpAdd_Handler
    End Sub
 
    Public Sub DynamicHelpAdd_Handler(ByVal Value_Collection As Collection)
        ValueCollection = Value_Collection
 
        'Pictur setzen
        Dim NewPicture As New PictureBox
 
        NewPicture.Image = Me.PictureBox1.Image
        NewPicture.Width = 18
        NewPicture.Height = 18
        NewPicture.Left = 1
        NewPicture.Top = 1
        Me.pnlControls.Controls.Add(NewPicture)
    End Sub

Imports System
Imports System.ComponentModel
Imports System.Threading
Imports System.Windows.Forms
Public Class Form1
    Inherits Form
 
    Delegate Sub SetTextDelegate(ByVal text1 As String)
    Private demoThread As Thread = Nothing
 
    Private WithEvents backgroundWorker1 As BackgroundWorker
 
    Private textBox1 As TextBox
    Private WithEvents setTextUnsafeBtn As Button
    Private WithEvents setTextSafeBtn As Button
    Private WithEvents setTextBackgroundWorkerBtn As Button
    Private components As System.ComponentModel.IContainer = Nothing
 
    Public Sub New()
        InitializeComponent()
    End Sub
 
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso Not (components Is Nothing) Then
            components.Dispose()
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    ' This event handler creates a thread that calls a 
    ' Windows Forms control in a thread-safe way.
    Private Sub setTextSafeBtn_Click( _
    ByVal sender As Object, _
    ByVal e As EventArgs) Handles setTextSafeBtn.Click
 
        Me.demoThread = New Thread( _
        New ThreadStart(AddressOf Me.ThreadProcSafe))
 
        Me.demoThread.Start()
    End Sub
 
    ' This method is executed on the worker thread and makes
    ' a thread-safe call on the TextBox control.
    Private Sub ThreadProcSafe()
        Me.SetText("This text was set safely.")
    End Sub
 
    Private Sub SetText(ByVal tex As String)
        ' InvokeRequired required compares the thread ID of the
        ' calling thread to the thread ID of the creating thread.
        ' If these threads are different, it returns true.
        If Me.textBox1.InvokeRequired Then
            Dim d As New SetTextDelegate(AddressOf SetText)
            Me.Invoke(d, New Object() {tex})
        Else
            Me.textBox1.Text = tex
        End If
    End Sub
 
    ' This event handler starts the form's 
    ' BackgroundWorker by calling RunWorkerAsync.
    ' The Text property of the TextBox control is set
    ' when the BackgroundWorker raises the RunWorkerCompleted
    ' event.
    Private Sub setTextBackgroundWorkerBtn_Click( _
    ByVal sender As Object, _
    ByVal e As EventArgs) Handles setTextBackgroundWorkerBtn.Click
        Me.backgroundWorker1.RunWorkerAsync()
    End Sub
 
    Private Sub backgroundWorker1_RunWorkerCompleted( _
    ByVal sender As Object, _
    ByVal e As RunWorkerCompletedEventArgs) _
    Handles backgroundWorker1.RunWorkerCompleted
        Me.textBox1.Text = _
        "This text was set safely by BackgroundWorker."
    End Sub
End Class