The following lines were added (+) and removed (-):
Wses the internet transfer control with HTTP to create an HTML page. Uses the internet transfer control with HTTP to create an HTML page. <nowiki>Dim objInet as Inet</nowiki><nowiki></nowiki><nowiki>Private Sub Form_Load()</nowiki><nowiki> ' Set a reference to the internet transfer control.</nowiki><nowiki> Set objInet = Me!axInetTran.Object</nowiki><nowiki>End Sub</nowiki><nowiki></nowiki><nowiki>Private Sub cmdWriteFile_Click()</nowiki><nowiki> Dim b() as Byte</nowiki><nowiki></nowiki><nowiki> ' Set the internet transfer control protocol and URL.</nowiki><nowiki> objInet.Protocol = icHTTP</nowiki><nowiki> objInet.URL = "HTTP://www.microsoft.com"</nowiki><nowiki></nowiki><nowiki> ' Retrieve the HTML data into a byte array.</nowiki><nowiki> b() = objInet.OpenURL(objInet.URL,icByteArray)</nowiki><nowiki></nowiki><nowiki> ' Create a local file from the retrieved data.</nowiki><nowiki> Open "C:\Homepage.htm" For Binary Access Write As #1</nowiki><nowiki> Put #1, , b()</nowiki><nowiki> Close #1</nowiki><nowiki></nowiki><nowiki> MsgBox "Done"</nowiki><nowiki>End Sub</nowiki><nowiki></nowiki><nowiki>Private Sub cmdGetHeader_Click()</nowiki><nowiki> ' Set the internet transfer control protocol and URL.</nowiki><nowiki> objInet.Protocol = icHTTP</nowiki><nowiki> objInet.URL = "HTTP://www.microsoft.com"</nowiki><nowiki></nowiki><nowiki> ' Open the HTML and display the header information.</nowiki><nowiki> objInet.openURL objInet.URL, icByteArray</nowiki><nowiki> MsgBox objInet.GetHeader</nowiki><nowiki>End Sub</nowiki>