[VB6] Costruire un array per copiare immagine

[oregon]

Ovviamente no ... come puoi leggere nell'help di VB (ma anche facendo una semplice prova ...), l'evento sara'

ImageP1_Click(Index As Integer)

e Index conterra' il valore dell'elemento in questione.
Quindi dovrebbe bastare

Private Sub Image1_Click(Index As Integer)
  Select Case immagine 
    Case 1 
      Form1.Image1.Picture = ImageP1(Index).Picture 
    Case 2 
      Form1.Image2.Picture = ImageP1(Index).Picture 
  End Select 
End Sub