#Region " Imports " Imports Statistics.Ado Imports System.Data Imports System.Text #End Region Namespace Data Public Class Structures #Region " Instance Fields " Const _connectionStringKey As String = "ACEProgramStatus" #End Region #Region " Static Methods " Public Shared Function Fruit() As SortedList Dim sl As SortedList = New SortedList() sl.Add("Apples", "Apples") sl.Add("Bananas", "Bananas") sl.Add("Cherries", "Cherries") Return sl End Function Public Shared Function Connect() As IDbConnection Return Ado.Connection(_connectionStringKey) End Function Public Shared Sub Disconnect(ByRef cn As IDbConnection) Ado.Dispose(cn) End Sub Public Shared Function Months() As SortedList Dim sl As SortedList = New SortedList() sl.Add(1, "January") sl.Add(2, "February") sl.Add(3, "March") sl.Add(4, "April") sl.Add(5, "May") sl.Add(6, "June") sl.Add(7, "July") sl.Add(8, "August") sl.Add(9, "September") sl.Add(10, "October") sl.Add(11, "November") sl.Add(12, "December") Return sl End Function Public Shared Function Cities() As SortedList Dim sl As SortedList = New SortedList() sl.Add("day", "Dayton") sl.Add("cvg", "Cincinnati") sl.Add("col", "Columbus") Return sl End Function Public Shared Function Years() As Array Dim today As Date = Date.Now() Dim a(10) As Integer a(0) = Year(today) For i = 1 To 9 a(i) = a(i - 1) - 1 Next i Return a End Function #End Region End Class End Namespace