Private Sub cmd2_Click()
Dim NewImage As MSForms.Image
Dim LastTop As Double
Dim LastLeft As Double
Dim I As Variant
On Error Resume Next
 
LastTop = 10
LastLeft = 10
For I = 1 To ListView1.ListItems.Count
 
Set NewImage = PreviewFrm.Controls.Add("Forms.Image.1")
NewImage.height = 95
NewImage.Width = 95
NewImage.PictureSizeMode = fmPictureSizeModeZoom
NewImage.BackColor = color1
'GraphicsWinModelBackgrndColor
Set NewImage.Picture = LoadPicture("C:\Temp\" & ListView1.ListItems(I).Text)
NewImage.Left = LastLeft
NewImage.top = LastTop
 
PreviewFrm.ScrollHeight = LastTop + NewImage.height + 10
If LastLeft + 10 > PreviewFrm.Width - 150 Then
    LastTop = LastTop + NewImage.height + 10
    LastLeft = 10
Else
    LastLeft = LastLeft + 105
    LastTop = NewImage.top
End If
Next
End Sub