CodeItBetter Programming Another VB Programming Blog

'Internet - How to view HTML Source

Option Explicit
 
'Add a Text Box and a Command Button to your form. Set Text Box MultiLine property to True.
'Add a WebBrowser Control to your form (Project -> Components => Microsoft Internet Controls)

Dim FileName As String
 
Private Sub Form_Load()
    FileName = "C:\Temp\Test.htm"
    WebBrowser1.Navigate2 (FileName)
End Sub
 
Private Sub Command1_Click()
    Open FileName For Input As #1
    Text1.Text = Input$(LOF(1), 1)
    Close #1
End Sub