PrivateSub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s AsString= Request.ServerVariables("HTTP_HOST")
TextBox1.Text = s
ForEach s In Request.ServerVariables
TextBox2.Text += vbCrLf & s
TextBox2.Text += vbCrLf &"----------"
TextBox2.Text += vbCrLf & Request.ServerVariables(s)
TextBox2.Text += vbCrLf & vbCrLf
Next End Sub