Public Function GetDateInfo(ByVal nMonth As Integer, ByVal nYear As _
      Integer, ByVal nDayOfWeek As DayOfWeek) As Date()
        Dim nDay As Date
        Dim nDays As New List(Of Date)
        Dim nDaysInMonth As Integer = Date.DaysInMonth(nYear, nMonth)
 
        For nIdx As Integer = 1 To nDaysInMonth
            nDay = Date.Parse(nIdx.ToString.PadLeft(2, "0") & "." & _
              nMonth.ToString.PadLeft(2, "0") & "." & nYear.ToString.PadLeft(2, _
              "0"))
            If nDay.DayOfWeek = nDayOfWeek Then
                nDays.Add(nDay)
            End If
        Next
 
        Return nDays.ToArray
    End Function