Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim myURI As New Uri("http://www.rntsoft.com:8080")
Console.WriteLine(myURI.Host)
Console.WriteLine(myURI.AbsolutePath)
Console.WriteLine(myURI.AbsoluteUri)
Console.WriteLine(myURI.Port.ToString)
Console.WriteLine(myURI.Scheme)
End Sub
End Class