Thread in VB NET 2005

Imports System.Threading
Public Class Form1

Dim tCounter As New Thread(AddressOf RunCounter)

Private Sub RunCounter()
Dim Counter As Integer

Do
setlabel(Counter & “/” & 10000)
Counter += 1
Loop While Counter < 10000
End Sub

Public Delegate Sub setlabeldelegate(ByVal text As String)
Private Sub setlabel(ByVal text As String)

If InvokeRequired Then
Invoke(New setlabeldelegate(AddressOf set_label), New Object() {text})
End If
set_label(text)

End Sub
Private Sub set_label(ByVal text As String)
Label1.Text = text
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If tCounter.IsAlive = False Then

tCounter.Start()

End If
End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
tCounter.Abort()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class