'Dim initialDt As DataTable
Dim results As New ArrayList()
Dim controls As New ArrayList()
Dim currentChronId As Integer = -1
Dim returnHt As Hashtable
Dim controlIdsInChron As ArrayList
Dim chronsDT As DataTable = chronsDS.Tables(0)
Dim datasetsDT As DataTable = chronsDS.Tables(1)
'Dim sw As New IO.StreamWriter("c:/inetpub/wwwroot/mapimages/chron.txt")
'sw.AutoFlush = True
Function