Array Project (days of the week)

Days of the week Project

 Dim week As New Hashtable 'declare at class leve
  
 Dim day As DictionaryEntry
  
 week.Add("Sunday", "Day 1")
  
 week.Add(Monday", "Day 2")"
  
 week.Add(Tuesday", "Day 3")"
  
 week.Add(Wednesday", "Day 4")"
  
 week.Add(Thursday", "Day 5")"
  
 week.Add("Friday", "Day 6")"
  
 week.add("Saturday", "day 7")'Display a single Item
  
 MsgBox(day.Key)For Each day In week
  
 Next
  
 txtTitle.Text = ""