Imports ForAspNet.IPInfo

Module Module1

    Sub Main()
        ForAspNet.IPInfo.License.LicenseKey = "<put license code here>"
        Dim ipi As New IPInfo
        Dim ci As CountryInfo = ipi.GetInfoByHostAddress("67.123.175.17")
        Console.WriteLine("Country Code:  " & ci.CountryCode)
        Console.WriteLine("Country Code:  " & ci.CountryCode3 & " (3 letters)")
        Console.WriteLine("Country Name:  " & ci.CountryName)
        Console.WriteLine("Currency Code: " & ci.CurrencyCode)
        Console.WriteLine("Currency Name: " & ci.CurrencyName)
        Console.WriteLine("Capital:       " & ci.Capital)
        Console.WriteLine("Region:        " & ci.Region)
        Console.WriteLine("")
        Console.WriteLine("Press Enter to exit...")
        Console.ReadLine()
    End Sub

End Module