lblHTML.Text = "<b>Request Header Information:</b>"
Dim strHeader As String
For Each strHeader In objWebClient.Headers
lblHTML.Text &= strHeader & "-" & objWebClient.Headers(strHeader) & "<br>"
Next
Dim objUTF8 As New UTF8Encoding()
Dim strRequestHTML As String
strRequestHTML = objUTF8.GetString(objWebClient.DownloadData(txtUrl.Text))
lblHTML.Text = "<p><b>Response Header Information:</b>"
For Each strHeader In objWebClient.ResponseHeaders
lblHTML.Text = strHeader & "-" & objWebClient.ResponseHeaders("strHeader")
Next
lblHTML.Text &= strRequestHTML