Запуск кода каждые 5 секунд - Visual Basic .NET - Ответ 590812

Private Sub btQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btQuery.Click
            ' query the selected server
            Dim type As GameServerInfo.GameServerInfo.GameType = CType(System.Enum.Parse(GetType(GameType), cbGametype.SelectedValue.ToString()), GameType)
            Dim server As New GameServerInfo.GameServerInfo.GameServer(tbHost.Text, Int32.Parse(tbPort.Text), type)
            server.DebugMode = True
            server.QueryServer()
 
            ' Clear old stuff
            tbInfos.Text = ""
            lvPlayers.Items.Clear()
            lvParams.Items.Clear()
 
            If Not server.IsOnline Then
                MessageBox.Show("Сервер выключен или неотвичает!")
                Return
            End If
 
            For Each player As GameServerInfo.GameServerInfo.Player In server.Players
                Dim lvItem As New ListViewItem(New String() {GameServer.CleanName(player.Name), player.Score.ToString(), player.Ping.ToString(), player.Time.ToString()})
                lvPlayers.Items.Add(lvItem)
            Next player
 
            For Each de As DictionaryEntry In server.Parameters
                Dim lvItem As New ListViewItem(New String() {de.Key.ToString(), de.Value.ToString()})
                lvParams.Items.Add(lvItem)
            Next de
 
            Dim props() As PropertyInfo = server.GetType().GetProperties(BindingFlags.Public Or BindingFlags.GetField Or BindingFlags.Instance)
            For Each prop As PropertyInfo In props
                Try
                    Dim obj As Object = prop.GetValue(server, Nothing)
                    If obj.ToString().IndexOf("Collection") <> -1 Then
                        Continue For
                    End If
                    tbInfos.Text += prop.Name & " - " & obj.ToString() & vbCrLf
                Catch e1 As TargetInvocationException
                Catch e2 As NullReferenceException
                End Try
            Next prop
        End Sub