MultiThread: how can I do two or more procedures

[dinitiae]

MultiThread: how can I do two or more procedures?

Dim I1 As Integer
    Dim I2 As Integer
 
    Dim THREAD1 As System.Threading.Thread
    Dim THREAD2 As System.Threading.Thread
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Control.CheckForIllegalCrossThreadCalls = False
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        THREAD1 = New System.Threading.Thread(AddressOf COUNTUP1)
        THREAD1.Start()
    End Sub
 
    Private Sub COUNTUP1()
        Do Until I1 = 1000
            I1 = I1 + 1
            Label1.Text = I1
            Me.Refresh()
        Loop
 
        I1 = 0
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        THREAD2 = New System.Threading.Thread(AddressOf COUNTUP2)
        THREAD2.Start()
    End Sub
 
    Private Sub COUNTUP2()
        Do Until I2 = 1000
            I2 = I2 + 1
            Label2.Text = I2
            Me.Refresh()
        Loop
 
        I2 = 0
    End Sub
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        THREAD1.Abort()
        THREAD2.Abort()
    End Sub

[Frinavale]

Create more than one thread?
I'm not clear on what your question is.