Spero che questa volta ci sia qualcuno che capisca quello che voglio dire.

Ho questo codice
codice:
Dim FSO As Object


Private Sub Command1_Click()
Dim FLD As Object
Dim IMG As Object
Dim tmpImg As StdPicture
       
   Set FLD = FSO.GetFolder(DirListBox1.Path)
    
    lvwElenco.ColumnHeaders.Add , , "Anteprima", 3000
    
    lvwElenco.View = lvwList
    
    On Error Resume Next
    W = 128 * Screen.TwipsPerPixelX
    H = 96 * Screen.TwipsPerPixelY
    Picture1.Width = W
    Picture1.Height = H

    ilsAnteprime.ListImages.Add , , Picture1.Image
    Set lvwElenco.SmallIcons = ilsAnteprime
    
For Each IMG In FLD.Files
    Set tmpImg = LoadPicture(IMG.Path)
    Picture1.BorderStyle = 0
    Picture1.AutoRedraw = True
    Picture1.PaintPicture tmpImg, 0, 0, W, H
    ilsAnteprime.ListImages.Add , , Picture1.Image
    lvwElenco.ListItems.Add , , IMG.Name, , ilsAnteprime.ListImages.Count
    DoEvents
Next

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Set FSO = CreateObject("Scripting.FileSystemObject")
End Sub
Private Sub Drive1_Change()
 DirListBox1.Path = Drive1.Drive
End Sub

vorrei collegare ogni icona ad un checkbox in modo che quando Verrà segnato attraverso un command si azionerà la stampa del file.
come insomma photoshop
qualcuno sa aiutarmi ?