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
This post has been edited by AdamSpeight2008: 25 January 2013 - 04:56 PM

New Topic/Question
Reply



MultiQuote




|