Making a webbrowser without using the webrowser componet

I want to make a webrowser that at start is just a text browser but then I search through and find the tags which i then translate. How would i go about doing this?

Here is an exmple i wrote some time ago:

Option Explicit

Private Sub Form_Load()
MsgBox HTMLParser("<p><ul><b>This is the text you would see in the web browser.<br>Test.</b></p><br>This is the end")
End Sub

Private Function HTMLParser(ByVal sHTML As String) As String
Dim lCounter As Long
Dim sTemp As String
For lCounter = 1 To Len(sHTML)
Select Case Mid(sHTML, lCounter, 1)
Case "<"
'Found a tag, should probably do something with it
Select Case LCase$(Mid$(sHTML, lCounter, 4))
Case "<br>", "</p>" 'These tag's as handled
'<br>, is next line; </p> is end paragraf
sTemp = sTemp & vbCrLf
lCounter = lCounter + 3

Case Else 'Unknown tag, skip it
Do Until Mid(sHTML, lCounter, 1) = ">"
lCounter = lCounter + 1
Loop
'End Case
End Select
Case Else
sTemp = sTemp & Mid(sHTML, lCounter, 1)
'End Case
End Select
Next
HTMLParser = sTemp
End Function



------------------

Vincent van den Braken
EMail: azzmodan@azzmodan.demon.nl
ICQ: 15440110 (http://www.icq.com/15440110)
Homepage: http://www.azzmodan.demon.nl

yea thats fine but i want to know how to get the source code. I know how to parse it.

[vbsquare]

OK. You will need to use the internet transfer control:

Dim b() As Byte

b() = Inet1.OpenURL("myurl.com",icByteArray)

For intCount = 0 To UBound(b) - 1
strSource = strSource & Chr(b(intCount))
next

The variable strSource now contains the HTML source code.

------------------
"To the glory of God!"

ive tried that before but sometimes the source code is too big and it wont get it all.

I had that once to, i beleive i addaded a doevents in the inet_statechanged and that seemed to work.
(I don't think it had anything to do with it, but i might help.)



------------------

Vincent van den Braken
EMail: azzmodan@azzmodan.demon.nl
ICQ: 15440110 (http://www.icq.com/15440110)
Homepage: http://www.azzmodan.demon.nl

a do events? can you further elaborate?