The article accompanying this code will show you how to use the code. Each line of code is described in the article. Enjoy!
'**************************************************************
'HTTP Transfer Routine
'Author: S.S. Ahmed
'Dated: March 05, 2001
'Special thanks: I would like to thank UNKABOOT for his help
'and guidance and for encouraging me to write for you people.
'NOTE:
'Please dont remove the date stamp for versioning purposes.
'**************************************************************
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0:
If txtURL.Text <> "" Then
RichTextBox1.Text = Inet1.OpenURL(txtURL.Text, icString)
End If
Case 1:
End
End Select
End Sub
Comments