public static List<XGisResult> GeographicQuery(
	string p_QueryName,
	string p_Country,
	EnumerationsGisSearchEnum p_GisSearchOption,
	int p_MaxRecords
)

Public Shared Function GeographicQuery ( 
	p_QueryName As String,
	p_Country As String,
	p_GisSearchOption As EnumerationsGisSearchEnum,
	p_MaxRecords As Integer
) As List(Of XGisResult)

Imports System
Imports System.Collections
Imports Biolomics.BioCallback
Imports Biolomics.SharedClasses

Public Class MyNewClass

    ' This function is called when running this script
    Shared Sub Main()

        '    Create an instance of class MyNewClass and call its functions
        Dim c As New MyNewClass
        'Run.RunTest()
        c.GisSearch()
    End Sub

    Public Sub GisSearch()
        Dim Results As Generic.List(Of XGisResult) = Run.GeographicQuery("New York", "USA", GISSearchEnum.AnyField, 5)

        Console.Write(Results.Count.ToString & " item(s) found at " & Date.Now.ToString & vbCrLf)

        For Each Res As XGisResult In Results
            Console.WriteLine("ID: " & Res.Id.ToString)
            Console.WriteLine("Title: " & Res.Title)
            Console.WriteLine("Locality: " & Res.City)
            Console.WriteLine("Country name: " & Res.CountryName)
            Console.WriteLine("Country code: " & Res.CountryCode)
            Console.WriteLine("Latitude: " & Res.Latitude.ToString)
            Console.WriteLine("Longitude: " & Res.Longitude.ToString)
            'Console.WriteLine("Details: " & Res.Info)
            Console.Write(vbCrLf)
        Next
    End Sub

End Class