VB.NET AddFixedPriceItem sample with ItemSpecifics for AU

/* 2012-2013 eBay Inc., All Rights Reserved */
/* Licensed under CDDL 1.0 - http://opensource.org/licenses/cddl1.php */

Imports eBay.Service.Call
Imports eBay.Service.Core.Sdk
Imports eBay.Service.Util
Imports eBay.Service.Core.Soap

Namespace Trading_Samples
   Public Class AddFixedPriceItem
      'AddFPItem - Listing with ItemSpecifics
      Private Sub AddFPItemWithItemSpecifics()
        Try
            'create the context
            Dim context As New ApiContext()

            'set the User token
            context.ApiCredential.eBayToken = "Your Token"

            'set the server url
            context.SoapApiServerUrl = "https://api.sandbox.ebay.com/wsapi"

            'enable logging
            context.ApiLogManager = New ApiLogManager()
            context.ApiLogManager.ApiLoggerList.Add(New FileLogger("log.txt", True, True, True))
            context.ApiLogManager.EnableLogging = True

            'set the version
            context.Version = "687"
            context.Site = SiteCodeType.Australia

            'create the call object
            Dim AddFPItemCall As New AddFixedPriceItemCall(context)

            AddFPItemCall.AutoSetItemUUID = True

            'create an item object and set the properties
            Dim item As New ItemType()

            'set the item condition depending on the value from GetCategoryFeatures
            item.ConditionID = 1000
            'new with tags
            'Basic properties of a listing
            item.Country = CountryCodeType.AU
            item.Currency = CurrencyCodeType.AUD

            'Track item by SKU
            item.InventoryTrackingMethod = InventoryTrackingMethodCodeType.SKU
            item.SKU = "ITMSPECS12345"

            item.Description = "test - do not bid or buy"
            item.Title = "test - do not bid or buy"
            item.SubTitle = "Test Item"
            item.ListingDuration = "Days_7"

            item.PaymentMethods = New BuyerPaymentMethodCodeTypeCollection()
            item.PaymentMethods.Add(BuyerPaymentMethodCodeType.PayPal)
            item.PayPalEmailAddress = "test@test.com"
            item.Location = "Australia"

            'Specify Shipping Services
            item.DispatchTimeMax = 3
            item.ShippingDetails = New ShippingDetailsType()
            item.ShippingDetails.ShippingServiceOptions = New ShippingServiceOptionsTypeCollection()

            Dim shipservice1 As New ShippingServiceOptionsType()
            shipservice1.ShippingService = "AU_Courier"
            shipservice1.ShippingServicePriority = 1
            shipservice1.ShippingServiceCost = New AmountType()
            shipservice1.ShippingServiceCost.currencyID = CurrencyCodeType.AUD
            shipservice1.ShippingServiceCost.Value = 1.0

            shipservice1.ShippingServiceAdditionalCost = New AmountType()
            shipservice1.ShippingServiceAdditionalCost.currencyID = CurrencyCodeType.AUD
            shipservice1.ShippingServiceAdditionalCost.Value = 1.0

            item.ShippingDetails.ShippingServiceOptions.Add(shipservice1)

            Dim shipservice2 As New ShippingServiceOptionsType()
            shipservice2.ShippingService = "AU_Express"
            shipservice2.ShippingServicePriority = 2
            shipservice2.ShippingServiceCost = New AmountType()
            shipservice2.ShippingServiceCost.currencyID = CurrencyCodeType.AUD
            shipservice2.ShippingServiceCost.Value = 4.0

            shipservice2.ShippingServiceAdditionalCost = New AmountType()
            shipservice2.ShippingServiceAdditionalCost.currencyID = CurrencyCodeType.AUD
            shipservice2.ShippingServiceAdditionalCost.Value = 1.0

            item.ShippingDetails.ShippingServiceOptions.Add(shipservice2)

            'Specify Return Policy
            item.ReturnPolicy = New ReturnPolicyType()
            item.ReturnPolicy.ReturnsAcceptedOption = "ReturnsAccepted"

            item.Quantity = 10
            item.StartPrice = New AmountType()
            item.StartPrice.currencyID = CurrencyCodeType.AUD
            item.StartPrice.Value = 10
            item.PrimaryCategory = New CategoryType()
            item.PrimaryCategory.CategoryID = "57991"

            'Add Item Specifics
            item.ItemSpecifics = New NameValueListTypeCollection()

            Dim ItemSpecs As New NameValueListTypeCollection()

            Dim nv1 As New NameValueListType()
            Dim valueCol1 As New StringCollection()


            nv1.Name = "Brand"
            valueCol1.Add("Ralph Lauren")
            nv1.Value = valueCol1

            ItemSpecs.Add(nv1)

            Dim nv2 As New NameValueListType()
            Dim valueCol2 As New StringCollection()
            nv2.Name = "Size"
            valueCol2.Add("L")
            nv2.Value = valueCol2
            ItemSpecs.Add(nv2)

            Dim nv3 As New NameValueListType()
            Dim valueCol3 As New StringCollection()
            nv3.Name = "Colour"
            valueCol3.Add("Black")
            nv3.Value = valueCol3
            ItemSpecs.Add(nv3)

            item.ItemSpecifics = ItemSpecs

            'Add pictures
            item.PictureDetails = New PictureDetailsType()
            item.PictureDetails.PictureURL = New StringCollection()
            item.PictureDetails.PictureURL.Add("http://i2.sandbox.ebayimg.com/03/i/00/3f/c5/92_1.JPG?set_id=8800004005")

            AddFPItemCall.Item = item

            'set the item and make the call
            AddFPItemCall.Execute()

            Console.WriteLine(AddFPItemCall.ApiResponse.Ack + " " + AddFPItemCall.ApiResponse.ItemID)
        Catch ex As Exception

        End Try
        
    End Sub

        End Class

End Namespace