Imports System

Imports System.Collections.Generic

Imports System.Data

Imports Skender.Stock.Indicators

Public Module Module1

    Public Sub Main()

        Dim MyDataTable As New DataTable("Stocks")

        MyDataTable.Columns.AddRange({New DataColumn("Date", GetType(DateTime)), New DataColumn("Open", GetType(Decimal)), New DataColumn("High", GetType(Decimal)), New DataColumn("Low", GetType(Decimal)), New DataColumn("Close", GetType(Decimal)), New DataColumn("Volume", GetType(Decimal)) })

        MyDataTable.LoadDataRow({DateTime.Now, 1, 2, 3, 4, 5 }, True) 'arbitrary data

        Dim quotes As New List(Of Quote)()

        For Each row As DataRow In MyDataTable.Rows

            quotes.Add(New Quote() With {

                .Date = Convert.ToDateTime(row.Item("Date")),

                .Open = Convert.ToDecimal(row.Item("Open")),

                .High = Convert.ToDecimal(row.Item("High")),

                .Low = Convert.ToDecimal(row.Item("Low")),

                .Close = Convert.ToDecimal(row.Item("Close")),

                .Volume = Convert.ToDecimal(row.Item("Volume"))

            })

        Next

​

        For Each quote In Quotes

            Console.WriteLine("{0} | {1} | {2} | {3} | {4} | {5}", {quote.Date, quote.Open, quote.High, quote.Low, quote.Close, quote.Volume})

        Next

    End Sub

End Module