[TcM]

Ok so add the component named "Microsoft Internet Transfer Control 6.0" if you dont know how to add a component see one of my tuts ( link in my sig )

now on ur form add :-
a Textbox and in its properties make Multiline to True and Scrollbars Both

the Microsoft Internet Transfer Control 6.0

A command button

and add this code:-

Private Sub Command1_Click()
Website = Inet1.OpenURL("www.google.com")
Text1.Text = Website
End Sub

and now press Command1 and in text1.text after a while you will be displayed the source!

Hope this helped!

EDIT:-
Instead of a textbox you could use a Rich Text Box Component for a better display of the source!