Const intNotSelected = fmSpecialEffectFlat     ' habe nichts besseres gefunden
Const intSelected = fmSpecialEffectRaised
Dim intLastClicked as Integer
 
 
Sub Form_Load()
 
Dim lvTemp as ListItem
Dim strFileName as String
 
intLastClicked = 1
With ListView1
  .View = lvwReport
  .ListItems.Clear
  .ColumnHeaders.Clear
  .ColumnHeader.Add ,,"Dateiname"
  strFileName = Dir("c:\temp\*.wmf")
  While strFileName <> ""
    set lvTemp = .ListItems.Add
    lvTemp.Text = strFileName                '  eventuell könnte man auch mit 
    ' Left$ die Endung abtrennen
    strFileName = Dir
  Wend
End With
 
 
Sub cmd2_Click()
 
Dim intImageCounter as Integer
Dim LastTop as Long
Dim LastLeft as Long
 
LastTop = 10                        '  meinst Du eigentlich Pixel oder Twips? 
' Standard ist Twips
LastLeft = 10
 
For intImageCounter = 0 to ListView1.ListItems.Count - 1
  if intImageCounter > 0 then Load NewImage(intImageCounter)    ' es muß 
  ' sich bereits ein Image auf der Form mit Index "0" befinden
  With NewImage(intImageCounter)
    .Width = 40                       ' Pixel oder Twips? (40 Twips sind ca. 3 
    ' Pixel)
    .Height = 40
    .PictureSizeMode = fmPictureSizeModeZoom
    .BackStyle = fmBackStyleOpaque
    .BorderStyle = fmBorderStyleNone
    .BackColor = Application.Preferences.Display.GraphicsWinModelBackgrndColor
    .Left = LastLeft
    .Top = LastTop
    .Picture = LoadPicture("c:\temp\"+ListView1.ListItems(intImageCounter + 1))
    .Visible = True
    Me.ScrollHeight = LastTop + .Height + 30
    If LastLeft + 50 > Me.Width - 20 Then
      LastTop = LastTop + .Height + 30
      LastLeft = 10
    Else
      LastLeft = LastLeft + 50
      LastTop = .Top
    End If
  End With
End Sub
 
 
Sub ListView1_Click()
Dim ClickIndex as Integer
 
ClickIndex = ListView1.SelectedItem.Index
NewImage(ClickIndex - 1).SpecialEffect = intSelected
NewImage(intLastClicked).SpecialEffect = intNotSelected
ListView(intLastClicked).Bold = False
intLastClicked = ClickIndex 
End Sub
 
 
Sub NewImage_Click(Index as Integer)
 
ListView1.ListItem(Index + 1).Bold = True           ' oder was anderes
ListView1.ListItem(intLastClicked).Bold = False
NewImage(intLastClicked).SpecialEffect = intNotSelected
intLastClicked = Index
End Sub