VB.NET ReviseFixedPriceItem sample for revising item specifics

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

Namespace Trading_Samples
     Public Class Revise
          Private Sub ReviseFixedPriceItem()

               '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 = "817"
               context.Site = SiteCodeType.UK

               Dim reviseFP As New ReviseFixedPriceItemCall(context)

               Dim item As New ItemType()
               item.SKU = "5591"

               'Specify the entire item specifics container
               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("M")
               nv2.Value = valueCol2
               ItemSpecs.Add(nv2)

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

               item.ItemSpecifics = ItemSpecs

               reviseFP.Item = item
               reviseFP.Execute()
               Console.WriteLine(reviseFP.ApiResponse.Ack + " Revised SKU " + reviseFP.SKU)

          End Sub

     End Class

End Namespace