Multi-Thread

Imports System.Threading

Public Class Form1
    Private td1 As Thread
    Private td2 As Thread
    Dim i, j, a As Long
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        i = 0
        j = 0
        a = 0
        td1 = New Thread(AddressOf thread1)
        td2 = New Thread(AddressOf thread2)
        td1.Start()
        td2.Start()

    End Sub
   
    Public Sub Thread1()
        While True
            i = i + 1
        End While

    End Sub
   
    Public Sub Thread2()
        While True
            j = j + 1
        End While

    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        a = 1 + a
        Label3.Text = a
        Label2.Text = j
        Label1.Text = i
    End Sub
End Class