Ti da errore perchè l'array di immagini lo crei vuoto con la :
codice:
Dim image(5) As image
' Prima di utilizzare Set image(1).Picture = Clipboard.GetData
' devi caricare un immagine in image(1) ....
' Prova con
Dim objImage as Image
Set objImage = new Image
Set image(1) = objImage
Set image(1).Picture = Clipboard.GetData
'Per liberare l'oggetto objImage per poter caricare un'altra immagine
Set objImage = Nothing
Set objImage = new Image
Set image(2) = objImage
Set image(2).Picture = Clipboard.GetData
' E così via .......