codice:
private funzione(byref a() as integer) as qualcosa
non funziona?
poi per chiamarla fai
codice:
qualcosa = funzione(r1.v1)