VB.Net by API/System/UriHostNameType

UriHostNameType.Basic

   
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
    Public Shared Sub Main
        Dim URL As System.Uri
    
        URL = New System.Uri("http://www.vbex.ru/index.htm?key=value")
        If URL.HostNameType = UriHostNameType.Basic Then
          Console.WriteLine("HostNameType: Basic")
        ElseIf URL.HostNameType = UriHostNameType.Dns Then
          Console.WriteLine("HostNameType: DNS")
        ElseIf URL.HostNameType = UriHostNameType.IPv4 Then
          Console.WriteLine("HostNameType: IPv4")
        ElseIf URL.HostNameType = UriHostNameType.IPv6 Then
          Console.WriteLine("HostNameType: IPv6")
        ElseIf URL.HostNameType = UriHostNameType.Unknown Then
          Console.WriteLine("HostNameType: Unknown")
        End If    
    End Sub
End Class