Option Explicit On
Option Strict On
 
Public Class Form1
    '// Designerregion
    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 Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        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 Sub
 
    Public Sub doSomething()
        Me.Invoke(start, New Object() {"Thread  has started.."})
        For a As Integer = 0 To 20
            Threading.Thread.Sleep(200)
            '// Debug.WriteLine(a)
            Me.Invoke(currentPos, New Object() {a})
            '// sende oder empfange Daten..
        Next
        Me.Invoke(hasFinished)
    End Sub
End Class