.NET 4.x WPF заставить Task простаивать определенное время (аналоги thread.sleep) - Visual Basic .NET

Формулировка задачи:

Доброе время суток, есть некая необходимость заставить задачу ни чего не делать определенное время, или выполнить функцию в отдельном потоке так что бы была возможность вызвать thread.sleep(n) без ущерба главному потоку, в эту тему влез недавно, задача стоит: Асинхронно вызывать функцию с ограничением по количеству вызовов в определенный промежуток времени. Надеюсь более менее объяснил)))) Привожу свой пример Простите код не оформлен, суть в том что при использовании Thread.sleep() все работает как должно работать, за исключением подвисания основного потока, вопрос в следущем: как выполнить Task в отдельном потоке что бы можно было его приостанавливать с Thread.sleep() и сохранить работоспособность функции или как еще можно сделать паузу без подвисания UI потока? спасибо на mainwindows расположена одна кнопка - button1

Imports System.Threading
 
Class MainWindow
    Public _expireTimer As System.Threading.Timer
    Private _requestsPerSecond As Integer
    Private _minInterval As Integer
    WithEvents timer1 As New Windows.Threading.DispatcherTimer
 
#Region "ограничение запросов"
 
    Public Property LastInvokeTime As DateTimeOffset?
    Public ReadOnly Property LastInvokeTimeSpan As TimeSpan?
        Get
            If LastInvokeTime.HasValue Then
                Return (DateTimeOffset.Now - LastInvokeTime.Value)
            Else
                Return Nothing
            End If
        End Get
    End Property
    Public Property RequestsPerSecond As Integer
        Get
            Return _requestsPerSecond
        End Get
        Set(value As Integer)
            If (value > 0) Then
                _requestsPerSecond = value
                _minInterval = ((1000 / _requestsPerSecond) + 1)
            ElseIf (value = 0) Then
                _requestsPerSecond = 0
            Else
                Throw New ArgumentException("Значение должно быть положительным", "RequestsPerSecond")
            End If
 
        End Set
    End Property
 
#End Region

    Public Function InvokeAsync()
        Dim task3 As Task(Of String) = Task(Of String).Factory.StartNew(Function()
                                                                            LastInvokeTime = DateTimeOffset.Now
                                                                            If (RequestsPerSecond > 0 AndAlso LastInvokeTime.HasValue) Then
                                                                                'SyncLock _expireTimer
                                                                                Dim span = LastInvokeTimeSpan.Value
                                                                                LastInvokeTime = DateTimeOffset.Now
                                                                                If (span.TotalMilliseconds < _minInterval) Then

                                                                                    '  Thread.Sleep((_minInterval - CType(span.TotalMilliseconds, Integer)))

                                                                                End If
                                                                                'End SyncLock
                                                                            End If
                                                                            Dim result As String = ("randome  - " & Rnd())
                                                                            Return result
                                                                        End Function)
        Return task3.Result
    End Function

    Private Sub button1_Click(sender As Object, e As RoutedEventArgs) Handles button1.Click
        RequestsPerSecond = 3 'кол-во разрешенных вызовов функции
        timer1.IsEnabled = False
        timer1.Interval = New TimeSpan(0, 0, 0.1)
        timer1.Start()
    End Sub
 
    Private Sub timer1_Tick(sender As Object, e As EventArgs) Handles timer1.Tick
        button1.Content = Me.InvokeAsync()
    End Sub
End Class

Решение задачи: «.NET 4.x WPF заставить Task простаивать определенное время (аналоги thread.sleep)»

textual
                            Листинг программы 
                        

                            Class MainWindow
    Private Async Sub StartButton_Click(sender As Object, e As RoutedEventArgs)
        Dim contentLength As Integer = Await AccessTheWebAsync()
        ResultsTextBox.Text &=
            String.Format(vbCrLf & "Length of the downloaded string: {0}." & vbCrLf, contentLength)
    End Sub
 
    Async Function AccessTheWebAsync() As Task(Of Integer)
 
        Dim client As HttpClient = New HttpClient()
        Dim getStringTask As Task(Of String) = client.GetStringAsync("http://msdn.microsoft.com")
        DoIndependentWork()
        Dim urlContents As String = Await getStringTask
        Return urlContents.Length
    End Function
 
 
    Sub DoIndependentWork()
        ResultsTextBox.Text &= "Working . . . . . . ." & vbCrLf
    End Sub
End Class
                        