Tenta assim:
Private Sub Image1_Click(Index As Integer)
On Error Resume Next 'Evita exibição de erro gerado pelo Visual Basic, caso você cancele a abertura de uma imagem
With dlgfoto1(0) 'Agiliza a programamção, não sendo necessário digitar a palavra CommonDialog1, cada vez que For necessário, bastanto a penas inserir um ponto que As propeidades serão aceitas
.Filter = "Imagens JPG| *.jpg" 'Filtra os arquivos a serem exibidos no CommonDialog, permitindo somente visualizar As extensões especificadas
.ShowOpen 'Abre a caixa de diálogo comum (CommonDialog)
Image1(0).Picture = LoadPicture(.FileName) 'Exibe a imagem selecionada na Caixa de Diálogno controle Image1.
End With 'Finaliza a instrução With
End Sub
Ats,
Marcelo
