Как определить последнее число на выбранную дату? - VB

Формулировка задачи:

Доброго времени суток... Как видно из вопроса, необходимо определить, последнее число указанной даты. Точнее, задача стоит в создании массива дат, от первого до последнего числа в период(месяц), в который укладывается выбранная дата. И самое главное, чтоб функция не зависила от региональных настроек. т.е. формат даты неизвестен... P/S в VB.NET есть, что нибуть подобное?

Решение задачи: «Как определить последнее число на выбранную дату?»

textual
                            Листинг программы 
                        

                                Private Sub DateListView()
 
        Dim i As Integer
        Dim Li As ListViewItem
        Dim myStr As String
        Dim mDate1 As Date = Date.Now
        Dim mDate2 As Date
 
        LV.Columns.Add("Дата", 100, HorizontalAlignment.Left)
        mDate1 = DateAdd("m", 1, mDate1.Date)
        mDate2 = DateAdd("d", -mDate1.Day(), mDate1.Date)
        mDate1 = DateAdd("d", -mDate2.Day() + 1, mDate2.Date)
 
        For i = mDate1.Day To mDate2.Day
            myStr = CStr(DateAdd("d", i - 1, mDate1.Date))
            Li = LV.Items.Add(myStr)
        Next
 
    End Sub
                        