Option Explicit On 
Option Strict On
 
Public Class Form1
    Inherits Form
    '// Designerregion
 
#Region " Vom Windows Form Designer generierter Code "
 
    Public Sub New()
        MyBase.New()
 
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
 
        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
 
    End Sub
 
    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu 
    ' bereinigen.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    ' Für Windows Form-Designer erforderlich
    Private components As System.ComponentModel.IContainer
 
    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer 
    ' erforderlich
    'Sie kann mit dem Windows Form-Designer modifiziert werden.
    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
    Friend WithEvents Button1 As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(8, 352)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(96, 32)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "Start"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(720, 389)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)
 
    End Sub
 
#End Region
 
    Private Delegate Sub d_threadHasFinished()
    Private Delegate Sub d_position(ByVal currentPos As Integer)
    Private Delegate Sub d_start(ByVal msg As String)
    Public Event threadHasFinished()
    Dim myThread As Threading.Thread
    Dim hasFinished As d_threadHasFinished
    Dim currentPos As d_position
    Dim start As d_start
    Dim gr As Graphics
 
    Private Sub thread_HasFinished()
        Dim f As New Form
        gr.DrawString(Me.Text, Me.Font, Brushes.Blue, CSng(100), CSng(100))
        System.Threading.Thread.Sleep(1000)
        Me.IsMdiContainer = True
        f.MdiParent = Me
        f.Text = "Thread has finished... ;o)"
        Me.Text = f.Text
        f.Show()
    End Sub
 
    Private Sub thread_updatePosition(ByVal currentPos As Integer)
        Me.Text = "Current Position: " + currentPos.ToString
        Me.Refresh()
        gr.DrawString(Me.Text, Me.Font, Brushes.Blue, CSng(100), CSng(100))
    End Sub
 
    Private Sub thread_start(ByVal msg As String)
        Me.Refresh()
        gr.DrawString(msg, Me.Font, Brushes.Blue, CSng(100), CSng(100))
        Threading.Thread.Sleep(1000)
    End Sub
 
Private Sub startProc()
        SyncLock Me
            gr = Me.CreateGraphics
            hasFinished = New d_threadHasFinished(AddressOf thread_HasFinished)
            currentPos = New d_position(AddressOf thread_updatePosition)
            start = New d_start(AddressOf thread_start)
            myThread = New Threading.Thread(AddressOf doSomething)
            AddHandler Me.threadHasFinished, AddressOf thread_HasFinished
            Application.DoEvents()
            myThread.Start()
        End SyncLock
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        startProc()
    End Sub
 
    Public Sub doSomething()
        Me.Invoke(start, New Object() {"Thread  has started.."})
 
        '// sende oder empfange die Daten..
        For a As Integer = 0 To 20
            Threading.Thread.Sleep(200)
            '// Debug.WriteLine(a)
            Me.Invoke(currentPos, New Object() {a})
        Next
        Me.Invoke(hasFinished)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        startProc()
    End Sub
End Class