VB.Net by API/System/UriBuilder

New UriBuilder

<source lang="vbnet"> Imports System.Net Imports System.Net.Sockets

Public Class Tester

   Public Shared Sub Main
       Dim myUriBuilder As UriBuilder
       Try
           myUriBuilder = New UriBuilder("http", "www.vbex.ru", 80, "/index.html")
       Catch ex As ArgumentException
           Console.WriteLine(ex.Message)
       End Try
       Dim myUri As Uri = myUriBuilder.Uri
       Console.WriteLine(myUri.ToString())
       Console.WriteLine(myUriBuilder.Scheme)
       Console.WriteLine(myUriBuilder.Port.ToString)
       Console.WriteLine(myUriBuilder.Host)
       Console.WriteLine(myUriBuilder.Path)

   End Sub

End Class

 </source>