GetMonthShortNames:
Private Sub GetMonthShortNames As List
Dim l As List
l.Initialize
For i=1 To 12
DateTime.DateFormat="M"
Dim longDT As Long = DateTime.DateParse(i)
DateTime.DateFormat="MMM"
l.Add(DateTime.Date(longDT))
Next
Return l
End Sub