مشکل در اجرای

[vb.net.33]

سلام

من از قطعه کد زیر استفاده می کنم که ایرد میگره علت مشکل در چیست؟

Public Class Form1


Public t1 As System.Threading.Thread


Private Sub t1_sub()
Me.Text = "OK"
Button2.Enabled = True
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
t1 = New System.Threading.Thread(AddressOf t1_sub)
t1.Start()
End Sub


End Class