1: 2: 3: 4: 5: 6:
Para i = (Me.LstRHFGrants.ListCount + 1) a ((Me.LstRHFGrants.ListCount + 1) + 4) ano = ano + 1 Com Me.LstRHFGrants .AddItem (grantdesc & “; ” & ano) Extremidade com Em seguida