abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
1º
On Error Resume Next En caso de que la lista este
2º
File1.Selected(File1.ListIndex - 1) = True
3º
File1.Selected(File1.ListIndex + 1) = True
4º
Dentro del botón Salir escriba:
5º
End
6º
File1.Pattern = "*.bmp;*.gif;*.jpg"
7º
Image1.Stretch = True
Otros juegos similares:
Otros juegos similares:
Otros juegos similares:

