Dim directoryEntries As String()
            directoryEntries = System.IO.Directory.GetFileSystemEntries(Path)
            Dim str As String
 
           For Each str In directoryEntries
                y = New PictureBox
                y.Cursor = Cursors.Hand
                y.Tag = str
                y.Size = New Size(150, 130)
                y.SizeMode = PictureBoxSizeMode.Zoom
                AddHandler y.DoubleClick, AddressOf BildZeigen
                y.ImageLocation = str
                Me.PanelDetailFotos.Controls.Add(y)
            Next str