Imports System.IO
Imports System.Text
Imports System.Net

Public Sub Upload()
        Dim imageData() As Byte
        Dim fileStream As FileStream = File.OpenRead(Application.StartupPath & "\1.png")
        imageData = New Byte((fileStream.Length) - 1) {}
        fileStream.Read(imageData, 0, imageData.Length)
        fileStream.Close()
        Dim uploadRequestString As String = HttpUtility.UrlEncode("image", Encoding.UTF8) + "=" + HttpUtility.UrlEncode(System.Convert.ToBase64String(imageData))
        Dim webRequest As HttpWebRequest = CType(Net.WebRequest.Create("http://api.imgur.com/3/upload"), HttpWebRequest)
        webRequest.Method = "POST"
        webRequest.ContentType = "application/x-www-form-urlencoded"
        webRequest.ServicePoint.Expect100Continue = False
        Dim streamWriter As IO.StreamWriter = New IO.StreamWriter(webRequest.GetRequestStream)
        streamWriter.Write(uploadRequestString)
        streamWriter.Close()
        Dim response As WebResponse = webRequest.GetResponse
        Dim responseStream As Stream = response.GetResponseStream
        Dim responseReader As StreamReader = New StreamReader(responseStream)
        Dim responseString As String = responseReader.ReadToEnd
        Dim ImageURL As String = Split(responseString, "<original>")(1).Split("<")(0)
        Dim X As String
        X = ImageURL
        Clipboard.SetText(X)
        System.Diagnostics.Process.Start(X)
    End Sub