Month Date

This code puts the date into an array of text boxes and moves it down one box when the month date changes.

  MonthPart = Month(Date)
  For i = 0 To 11
  Monlbl(i).Caption = UCase(MonthName((13 + i - MonthPart) Mod 12 + 1, True))
  Next i

  For i = 0 To 1
  Monlbl(12).Caption = Format(Date, "yyyy")
  Next i

This code works perfect in vb6 but i can't work it out in vb.net