Upload imgbb 1.0

        Dim parameters As New System.Collections.Specialized.NameValueCollection
        'Dim encoding As New System.Text.UTF8Encoding
        parameters.Add("key", Convert.ToBase64String(My.Computer.FileSystem.ReadAllBytes("C:\Users\Administrator\Downloads\1.txt")))
        parameters.Add("image", Convert.ToBase64String(My.Computer.FileSystem.ReadAllBytes("C:\Users\Administrator\Downloads\1.jpg")))
        Dim results As New Dictionary(Of String, Object)
        Dim uploaderror = False
        Try
            Dim client_web As New WebClient()
            Dim resultweb = client_web.UploadValues("https://api.**********/1/upload", "POST", parameters)
            Dim jsonResulttodict = JsonConvert.DeserializeObject(Of Dictionary(Of String, Object))(encoding.GetString(resultweb))
            Dim firstItem = jsonResulttodict.Item("data")
            results = JsonConvert.DeserializeObject(Of Dictionary(Of String, Object))(firstItem.ToString)
        Catch ex As Exception
            uploaderror = True
        End Try
        If uploaderror = False Then
            For Each r In results
                MsgBox(r.Key & " - " & r.Value)
            Next
        End If

Dim resultweb = client_web.UploadValues("https://api.**********/1/upload?key=03ec4543584ba7f3514584659ed00bcf", "POST", parameters)