Visual Basic

Imports System.Threading

Public Class Form1
    Dim MyNewThread As Thread

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        
        'create the thread 
        MyNewThread = New Thread(AddressOf MyThread.MyThreadExecute)
        MyThread.ThatForm = Me
        'start the thread
        MyNewThread.Start()
    End Sub

    Public Sub SetProgress(ByVal What As String)
        If InvokeRequired Then
            Invoke(New Action(Of String)(AddressOf SetProgress), New Object() {What})
            Return
        End If

        Label1.Text = What
    End Sub
End Class

Module MyThread
    Public ThatForm As Form1

    Public Sub MyThreadExecute()
        Dim i As Integer = 0
        Do
            i = i + 1
            ThatForm.SetProgress(i)
            Thread.Sleep(100)
        Loop
    End Sub
End Module

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
They hate us for our freedom![^]