비동기 VB.NET _ Await

http://msdn.microsoft.com/en-us/library/vstudio/hh156570.aspx

Imports System.Threading

'이렇게 쓰면 UI가 멈춤

 Private Async Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim result As String = Await WaitSynchronously()

        TextBox1.Text &= result

    End Sub

Public Async Function WaitSynchronously() As Task(Of String)

        ' Import System.Threading for the Sleep method.

        Thread.Sleep(5000)

        Return "Finished"

    End Function

'이렇게 쓰면 안멈춤

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

        ' Call the method that runs asynchronously.

        Dim result As String = Await WaitAsynchronouslyAsync()

        TextBox1.Text &= result

    End Sub

   Public Async Function WaitAsynchronouslyAsync() As Task(Of String)

        Await Task.Delay(5000)

        Return "Finished"

    End Function