problem to get view source

[sagarvt]

how to use internet transfer control to get view source of any site?

[Randhart]

Private Sub Inet1_StateChanged(ByVal State As Integer)

Dim sTemp As String

Select Case State
Case 12 'icResponseCompleted

sTemp = Inet1.GetChunk(100)
While sTemp <> ""
txtCode.Text = txtCode.Text & sTemp
sTemp = Inet1.GetChunk(100)
Wend

Case 11 'icError
MsgBox Inet1.ResponseInfo, vbCritical, "ERROR!"

End Select
End Sub

***************************

Here you go .. now you can put what ever sTemp returns for you in your RTB or TB