Public Class Form1

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


    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


        Dim url As String = ""
        Dim xml As String = ""

        Dim OAuth As New OAuth_Twitter

        OAuth.AccessTokenGet("oauth_token")
        If (OAuth.tokenSecret.Length > 0) Then


            'url = "http://twitter.com/account/verify_credentials.xml"
            url = "http://twitter.com/statuses/show/123.xml"
            xml = OAuth.oAuthWebRequest("GET", url, String.Empty)
            TextBox1.Text = xml.ToString

        End If

    End Sub
End Class