Повторный вызов делегированной процедуры в запущенный ранее поток

Public Class Form1
 
    Public Th As Thread = Nothing
    Dim first As Boolean = True
   
    
    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        If first Then
            ProgressBar1.Visible = True
           Me.Th = New System.Threading.Thread(AddressOf Me.temp)
            Me.Th.Start()
           first = False
 
        Else
вот тут как указать чтоб функция temp() завершилась принудительно и вызвалась бы заново
 в том же самом отдельном потоке
           
 
           ' If ListBox1.Items.Count > 0 Then
            'ListBox1.Items.Clear()
            ' End If
 
            'If ProgressBar1.Value > 0 Then
            'ProgressBar1.Value = 0
            'End If
 
        End If
    End Sub

Public Class Form1
    Public Th As Thread = Nothing
    Dim Fist As Boolean = True
    Dim Second As Boolean = True
       
    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        If Fist Then
            ProgressBar1.Visible = True
            Label2.Text = "Ожидаем завершения функции Network.Ping"
            Me.Th = New System.Threading.Thread(AddressOf Me.temp)
            Me.Th.Start()
            Fist = False
 
        Else
            Second = False
            If ListBox1.Items.Count > 0 Then
                ListBox1.Items.Clear()
            End If
 
            If ProgressBar1.Value > 0 Then
                ProgressBar1.Value = 0
            End If
 
            End If
    End Sub
    Public Sub temp()
        Second = True
 
          If Second = False Then
 
                    temp()
          End If
 
     end sub