Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Imports System.Net.Http
Imports System.Net.Http.Headers

Namespace HttpClientDemo
    Class Program
        Private Shared Sub Main(ByVal args As String())
            Dim student = New Student() With
{
                .Name = "Steve"
            }
Dim postTask = client.PostAsJsonAsync(Of Student)("student", student)
            postTask.Wait()
            Dim result = postTask.Result

            If result.IsSuccessStatusCode Then
                Dim readTask = result.Content.ReadAsAsync(Of Student)()
                readTask.Wait()
                Dim insertedStudent = readTask.Result
                Console.WriteLine("Student {0} inserted with id: {1}", insertedStudent.Name, insertedStudent.Id)
            Else
                Console.WriteLine(result.StatusCode)
            End If
        End Sub
    End Class
End Namespace