*********************

Private Sub PopulateReminderCombo()

Dim loTable As New DataTable()

Dim loRow As DataRow

'-- Create the table structure

loTable.Columns.Add("Display", GetType(String))

loTable.Columns.Add("DropDown", GetType(String))

loTable.Columns.Add("Value", GetType(TimeSpan))

'-- Add some rows

loRow.Item("Display") = "0 minutes"

loRow.Item("DropDown") = "0 minutes"

loRow.Item("Value") = (New TimeSpan(0, 5, 0))

loTable.Rows.Add(loRow)

loRow = loTable.NewRow()

loRow.Item("Display") = "5 minutes"

loRow.Item("DropDown") = "5 minutes"

loRow.Item("Value") = (New TimeSpan(0, 5, 0))

loTable.Rows.Add(loRow)

*******************************************