Private Sub Command1_Click()
Dim x As String
x = Inet1.OpenURL("http://forums.vb-world.net", icString)
ReturnStr = Inet1.GetChunk(2048, icString)
Do While Len(ReturnStr) <> 0
DoEvents
x = x & ReturnStr
ReturnStr = Inet1.GetChunk(2048, icString)
Loop
End Sub