VB.NET AddFixedPriceItem sample for listing an item with ePID 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 using product identifier
    Private Sub AddFPItemCatalog()

        '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 = "715"
        context.Site = SiteCodeType.Australia

        Dim ePID As String = "ePID85135201"
        'Apple iPhone 3GS Black (16GB) Cell Phone
        'create the call object
        Dim AddFPItemCall As New VerifyAddFixedPriceItemCall(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 
        'Basic properties of a listing
        item.Country = CountryCodeType.GB
        item.Currency = CurrencyCodeType.AUD

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

        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_Regular"
        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.CategoryID = "";
        item.ProductListingDetails = New ProductListingDetailsType()
        item.ProductListingDetails.ProductReferenceID = ePID
        item.ProductListingDetails.IncludePrefilledItemInformation = True
        item.ProductListingDetails.IncludeStockPhotoURL = True

        AddFPItemCall.Item = item

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

        Console.WriteLine(AddFPItemCall.ApiResponse.ItemID & " listed against " & ePID)

    End Sub
  End Class

End Namespace