Imports System.Collections.Generic
Module Example
Public Sub Main()
Dim temperatureInfo As New Dictionary(Of Date, Double)
temperatureInfo.Add(#6/1/2010 2:00PM#, 8.46)
temperatureInfo.Add(#12/1/2010 10:00AM#, 6.81)
Dim output As String
For Each item In temperatureInfo
output = String.Format("{0,8:t} on {0,9:d}: {1,5:N1}F",item.Key, item.Value)
Console.WriteLine(output)
Next
End Sub
End Module
/*
2:00 PM on 6/1/2010: 8.5F
10:00 AM on 12/1/2010: 6.8F
*/