Ayuda con programa de lista de fotos

Hydra
31 de Octubre del 2005
Hola a todos,
Soy nueva en esto y tengo que hacer un programa que me muestre fotos seleccionándolas desde un combobox. He usado un select case para mostrar las imágenes, pero siempre me sale la primera. ¿Qué tengo mal o qué me falta?
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

maxi
31 de Octubre del 2005
select case combo1.text

case "Foto 1"
etc...
end select