Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        Dim AWSAccessKey As String = "XXX"
        Dim AWSSecretKey As String = "XXX"
        Dim AWSAssociateTag As String = "Xxx"
 
        Dim binding As New BasicHttpBinding(BasicHttpSecurityMode.Transport)
        binding.MaxReceivedMessageSize = Integer.MaxValue
        Dim client As New AWSECommerceServicePortTypeClient(binding, New _
          EndpointAddress( _
          "https://webservices.amazon.com/onca/soap?Service=AWSECommerceServic" & _
          ""))
 
        ' add authentication to the ECS client
        client.ChannelFactory.Endpoint.Behaviors.Add(New _
          AmazonSigningEndpointBehavior(AWSAccessKey, AWSSecretKey))
 
        Dim ilks(0) As ItemLookupRequest
 
        ilks(0) = New ItemLookupRequest
        ilks(0).Condition = Condition.All
        ilks(0).IdType = ItemLookupRequestIdType.ASIN
        ilks(0).IdTypeSpecified = True
        ilks(0).SearchIndex = "All"
        ilks(0).ItemId = New String() {"B000Q5NG78"}
 
        ilks(0).ResponseGroup = New String() {"ItemAttributes"}
 
        Dim itemlookup As New ItemLookup
        itemlookup.Request = ilks
        itemlookup.AWSAccessKeyId = AWSAccessKey
        itemlookup.AssociateTag = AWSAssociateTag
 
        Dim response As ItemLookupResponse = client.ItemLookup(itemlookup)
        If Not response.Items Is Nothing Then
            For i = 0 To response.Items.Count - 1
                If Not response.Items(i).Item Is Nothing Then
                    For j = 0 To response.Items(i).Item.Count - 1
                        Dim item As Amazon.ECS.Item = response.Items(i).Item(j)
 
                        MsgBox(item.ASIN)
 
                    Next
                End If
            Next
        End If
 
    End Sub