Function ip() As String
        Dim he As Net.IPHostEntry = Net.Dns.Resolve(Environment.MachineName)
        For Each address As Net.IPAddress In he.AddressList
            MsgBox(address.ToString)
        Next
    End Function