1: 2: 3: 4: 5: 6:
Voor I = (Me.LstRHFGrants.ListCount + 1) aan ((Me.LstRHFGrants.ListCount + 1) + 4) jaar = jaar + 1 Met Me.LstRHFGrants .AddItem (grantdesc & „; “ & jaar) Eind met Daarna