1:     Sub Main()
  2:         Dim KeyValueCollection As New System.Collections.Specialized.NameValueCollection
  3: 
  4:         Dim myCI As New System.Globalization.CultureInfo("tr-TR")
  5:         For index As Integer = 1 To 12
  6:             KeyValueCollection.Add(index, DateAndTime.MonthName(index))
  7:         Next
  8: 
  9:         Dim Month As String() = KeyValueCollection.GetValues(1)
 10:         Console.WriteLine(Month(0))
 11:     End Sub