Visual Basic - ayuda con fotos

hola atodos en este foro estoy haciendo un programa y me gustaria que mostrara fotos alguien sabe como le aria para poner una coleccion de 50 fotos o mas

Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 'Addnew
dataContactos.Recordset.AddNew
Case 1 'Carga Bmp
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End If
End Select
End Sub

Private Sub Form_Load()
'Ajusta el DataControl
dataContactos.DatabaseName = App.Path & "Bd-Foto 97.mdb"
dataContactos.RecordSource = "CONTACTOS"
End Sub

este codigo lo encontre con el maestro guille en elguille.info
creo que sirve checalo

oye LOLO solo dame una idea
si por ejemplo yo quisiera mostrar las fotos de una boda las de un bautizo las de un cumpleaños como le haria para que no se intercalaran es decir

si hago una busqueda y digigo muestrame solo las fotos de la boda que solo me aparecieran las de la boda y asi sucesivamente sale saludos

ok funciona de maravilla gracias adolfo

A mi se me ocurre que utilices varios picture, un array por ejemplo.