Module.vb

Sub Main()
    Dim t = Task.Factory.StartNew(
        Async Function()
            Dim auth = CreateSingleUserAuthorizer()
            Await auth.AuthorizeAsync

            Using ctx = New TwitterContext(auth)
                Await ctx.TweetAsync("こんにちは")
            End Using

        End Function).Unwrap

    t.Wait()
End Sub