1:  Partial Class _Default

   2:      Inherits System.Web.UI.Page

   3:   

   4:      Dim ip As String

   5:   

   6:      'IP adres achterhalen

   7:      Public Sub IpAddress()

   8:          Dim strIpAddress As String

   9:          strIpAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

  10:          If strIpAddress = "" Then

  11:              strIpAddress = Request.ServerVariables("REMOTE_ADDR")

  12:          End If

  13:          ip = strIpAddress

  14:      End Sub

  15:   

  16:      Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

  17:          IpAddress()

  18:          TextBox1.Text = ip

  19:      End Sub

  20:  End Class