How to run a thread every x seconds without using timer control - vb.net

Question

I have to run a certain thread every second refreshes the message field, but without using any time controls. I wonder if there is any alternative to timer control. My be background worker or something of that sort.
This what I have so far. It suppose to run every second but it doesn't
Private Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim myThread As New System.Threading.Thread(AddressOf GetData)
myThread.Start()
Thread.Sleep(1000)
End Sub
And this is function which he is calling to:
Delegate Sub SetTextCallback(ByVal newString As String)
Private Sub SetText(ByVal [text] As String)
If Me.ChatBox.InvokeRequired Then
Dim d As New SetTextCallback(AddressOf SetText)
Me.Invoke(d, New Object() {[text]})
Else
Me.ChatBox.Text = [text]
End If
End Sub​
Sub GetData()
Try
conn.Open()
Dim Query = "SELECT * fROM messages where Time_Posted > Now()"
Dim cmd As MySqlCommand = New MySqlCommand(Query, conn)
Dim theREader As MySqlDataReader = cmd.ExecuteReader
SetText("")
Dim Temp as String = ""
Do While theREader.Read()
Temp &= theREader.GetString(0) & vbCrLf
Loop
SetText(Temp)
conn.Close()
Catch ex As Exception
MsgBox(ex.Message.ToString())
conn.Close()
End Try
GetData()
End Sub
I wonder if there any way how can I make the thread run repeatedly without using timer?
Thank you in advance for any help and suggestions
THIS IS CORRECTED CODE AFTER THE PROBLEM WAS SOLVED

Answer 1

look at this one then
Imports System.Threading
Public Class Form1
Dim testvalue As Integer
Private Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim myThread As New System.Threading.Thread(AddressOf GetData)
myThread.Start()
Thread.Sleep(1000)
End Sub
Sub GetData()
MsgBox("getdata works")
'get your new data from database here
'threadsleep here if you want
'and call GetData() again
GetData()
End Sub
'
'
'
End Class

Answer 2

now i gotta make non stop proc read without any timer.You can add thread sleep if you want
paste it to new project
Public Class Form1
Dim testvalue As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
testvalue = 1
'now we gotta run our proc first time
Read(testvalue)
End Sub
Private Sub Read(ByVal msg As String)
MsgBox(msg)
testvalue += 1 'you make make threadsleep here if you want
Read(testvalue) 'after first start we did what we ant , and now we are running it again
End Sub
End Class