Imports System.ThreadingPublic Class Form1 Private _threadOutput As String = "" Dim _stopThreads As Boolean = False Private Sub DisplayThread1() While _stopThreads = False MessageBox.Show("Display Thread 1") _threadOutput = "Hello Thread1" Threading.Thread.Sleep(1000) MessageBox.Show("Thread 1 Output --> {0}", _threadOutput) End While End Sub Private Sub DisplayThread2() While _stopThreads = False MessageBox.Show("Display Thread 2") _threadOutput = "Hello Thread2" Threading.Thread.Sleep(1000) MessageBox.Show("Thread 2 Output --> {0}", _threadOutput) End While End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load MessageBox.Show("hi") Dim thread1 As Threading.Thread = New Threading.Thread(New ThreadStart(AddressOf DisplayThread1)) Dim thread2 As Threading.Thread = New Threading.Thread(New ThreadStart(AddressOf DisplayThread2)) thread1.Start() thread2.Start() End SubEnd Class