Crear tira de imágenes en VB6

[fero]

Dos formularios form2 y form3.
form2 con control listview y control imagelist
form3 con control image

Codigo de form2:

Public imgX As ListImage
Public itm As String

Private Sub Form_Load()

' Agrega imágenes a la colección ListImages.
Set imgX = ImageList1. _
ListImages.Add(, "foto1.jpg", LoadPicture("foto1.jpg"))
Set imgX = ImageList1. _
ListImages.Add(, "foto2.jpg", LoadPicture("foto2.jpg"))
Set imgX = ImageList1. _
ListImages.Add(, "foto3.jpg", LoadPicture("foto3.jpg"))

ListView1.Icons = ImageList1 ' Establece la propiedad Icons.

' Agrega objetos Item al control ListView.
Dim itmX As ListItem

Set itmX = ListView1.ListItems.Add()
itmX.Icon = 1
itmX.Text = "foto1"

Set itmX = ListView1.ListItems.Add()
itmX.Icon = 2
itmX.Text = "foto2"

Set itmX = ListView1.ListItems.Add()
itmX.Icon = 3
itmX.Text = "foto3"

End Sub

Private Sub ListView1_DblClick()

Form2.Hide
Form3.Show
Form3.Image1.Picture = LoadPicture(itm)

End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

itm = Item & ".jpg"

End Sub

Codigo de form3:

Private Sub Form_Unload(Cancel As Integer)

Form2.Show

End Sub


Esto es para tres imágenes jpg. Para n imágenes habría que hacer un loop que busque *.jpg en una carpeta donde estén todas las imágenes y cargarlas de la misma manera en el listview.
También hay que centrar y escalar la imagen en el form3.