Module.vb

' Imports LinqToTwitter を追加しておく

' Twitter 認証に使うオブジェクトを返す
Private Function CreateSingleUserAuthorizer() As SingleUserAuthorizer
    Dim s = System.Configuration.ConfigurationManager.AppSettings

    Dim auth = New SingleUserAuthorizer With {
        .CredentialStore = New SingleUserInMemoryCredentialStore With
            {
                .ConsumerKey = s("ConsumerKey"),
                .ConsumerSecret = s("ConsumerSecret"),
                .AccessToken = s("AccessToken"),
                .AccessTokenSecret = s("AccessTokenSecret")
            }
    }
    Return auth

End Function