You can modify the name displayed on the Command button by viewing the Properties dialog box Toolbox and then changing the Captionproperty. After adding the Command button, make sure you are still in design mode. If you are in design mode, you see that a Design Mode button on the toolbox in the upper-left corner is selected. If you are not mode, the code behind the button executes if you click or double-click the button. In order to code, you double-click the button when you are in design mode. You should see a Visual BasicEditor window open within the currently empty CommandButton1_Clickevent. Add the following code to the CommandButton1_Clickevent, replacing [YourIdGoesHere]with com Subscription ID where indicated: Private Sub CommandButton1_Click() Dim oXML As ObjectDim oDom As ObjectDim strXML As StringDim strResponse As StringDim strURL As StringOn Error GoTo HandlerSet oXML = CreateObject( Microsoft.XMLHTTP ) set the parameters to be passed to the Amazon.com web API including retrieving the search criteria entered in cell B1strURL = http://webservices.amazon.com/onca/xml?Service=AWSECommerceService&SubscriptionId= [YourIdGoesHere]&Operation=ItemSearch&SearchIndex=Books&Keywords= & Worksheets( Sheet1 ).Range( B1 ).Value Clear any prior resultsWorksheets( Sheet1 ).Range( B4 ).Value = Worksheets( Sheet1 ).Range( B5 ).Value = Worksheets( Sheet1 ).Range( B6 ).Value = Worksheets( Sheet1 ).Range( B7 ).Value = Call the Amazon.com serviceWith oXML.Open GET , strURL, False Needed to web service will recognize get/post.setRequestHeader Content-Type , application/x-www-form-urlencoded .sendEnd With get the resultsstrResponse = oXML.responseText load the results into a new XML documentSet oDom = CreateObject( MSXML.DOMDocument ) oDom.loadXML (strResponse) display the results on the spreadsheetIf oDom.hasChildNodes Then195Calling
Note: If you are looking for good and high quality web space to host and run your application check Lunarwebhost Adult Web Hosting services