Loop con meses del año

[estlui]

Hola a todos.....

Pues ayer por la noche tuve una flash o una vision de como hacer lo que requeria del loop con los meses del año..... a lo mejor porque los bulbos del cerebro ya estaban frescos... jejejeje...

Lo hice asi, esta muy simple pero en su momento no se me ocurria, se los dejo por si alguien le pasa:

Código ASP:

Dim mesIni As Integer = Month(tbMesAnio.Text)
            Dim anio As Integer = Year(tbMesAnio.Text)
            Dim cantMeses As Integer = tbMeses.Text
 
            Dim mesActual As Integer = Month(Date.Now)
            Dim anioActual As Integer = Year(Date.Now)
            Dim dr As DataRow
            If anio >= anioActual And mesIni >= mesActual Then
                Dim dt As New DataTable
                Dim mesLetra As String
                For i = 1 To cantMeses
                    mesLetra = MonthName(mesIni, False)
                    dt.Columns.Add(mesLetra & " " & anio)
 
                   If mesIni < 12 Then
                        mesIni = mesIni + 1
                    Else
                        mesIni = 1
                        anio += 1
                    End If
 
                Next
Dim requiPartida As Double = hf_costoRequi.Value / cantMeses
 
                dr = dt.NewRow
                For i = 0 To cantMeses - 1
                    dr(i) = FormatCurrency(requiPartida, 2)
                Next
 
                dt.Rows.Add(dr)
 
                gvDistribucion.DataSource = dt
                gvDistribucion.DataBind()
 

La clave estaba en esta seccion:

If mesIni < 12 Then
mesIni = mesIni + 1
Else
mesIni = 1
anio += 1
End If

Saludos y gracias