Devi fare così:

codice:
Private sub Pippo(ByVal MioArrayPicture() as Picture)
Picture1=MioArrayPicture(0)
Picture2=MioArrayPicture(1)
Attento che dovrei controllare se devi passare delle immagini.. forse devi usare paintpicture(..)
Anche se no.. se popoli l'array con delle picture.. ci salti fuori anche così!
Prova .. poi mi sai dire!
Eventualmente provo anch'io.