Visual Basic - Ayuda con programa de lista de fotos

Hola a todos,
Soy nueva en esto y tengo que hacer un programa que me muestre fotos seleccionándolas previamente desde un combobox. Tengo que tener algo mal porque esto siempre me muestra la primera foto.
Espero que me ayuden.
Muchas gracias.

Private Sub Form_Load()
Combo1.Text = ""
Combo1.AddItem "Foto 1"
Combo1.AddItem "Foto 2"
Combo1.AddItem "Foto 3"
Combo1.AddItem "Foto 4"
Combo1.AddItem "Foto 5"
End Sub

Private Sub Foto_Click()

Select Case Foto
Case 1
Picture1.Picture = LoadPicture("c:\1.bmp")
Case 2
Picture1.Picture = LoadPicture("c:\2.bmp")
Case 3
Picture1.Picture = LoadPicture("c:\3.bmp")
Case 4
Picture1.Picture = LoadPicture("c:\4.bmp")
Case 5
Picture1.Picture = LoadPicture("c:\5.bmp")
End Select
End Sub

Hola Hydra cambia la linea del select case por esta
Select Case Combo1.ListIndex + 1
el problema es que cuando pasas por el select realmente no entra en ninguno de los case (a menos que tengas una variable publica llamada Foto). Con el listindex del combo tomas el valor del elemento seleccionado en el combo.

Te doy otra idea de como lo puedes hacer pero con muchisimas menos lineas de codigo

Picture1.Picture = LoadPicture("c:\" & Combo1.ListIndex + 1 & ".bmp")

Reemplaza el codigo del selec case (todo) con esta linea.

Espero que esto sea de ayuda.

Un saludo y mucha suerte

Atentamente
Carlos Gómez

Muchas gracias por tu ayuda.