Para ver el codigo de fuente de una pagina necesitamos colocar:
2 Text
1 inet (Project->components-> Microsoft Internet Transfer Control 6.0 (SP4))
1 command buton
Ahora colocamos el siguiente codigo
Private Sub Command1_Click()
strURL = Inet1.OpenURL(Text1.Text)
Text2.Text = strURL
End Sub
listo ahora en el text1 ponen la direccion en la que quieren ver el codigo de fuente
y en el text2 les aparecera el codigo
Fuente: pio9.com Modificado por mi