Imports System.Windows.Forms
Class MainWindow
 
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  _
          System.Windows.RoutedEventArgs) Handles Button1.Click
 
        Dim dateien As List(Of String) = fuc_Dateiwählen()
        If dateien.Count > 0 Then
            For i As Integer = 0 To dateien.Count - 1
                Dim bi As BitmapImage = fuc_bildladen(dateien(i))
                Dim img As Image = fuc_image(bi)
                sub_imageanzeigen(img)
            Next i
        End If
 
    End Sub
 
    Public Function fuc_bildladen(ByVal str_datei As String) As BitmapImage
 
        Dim bitm_bildimage As New BitmapImage
 
        With bitm_bildimage
            .BeginInit()
            .UriSource = New Uri(str_datei)
            .EndInit()
        End With
 
        fuc_bildladen = bitm_bildimage
    End Function
 
    Public Function fuc_image(ByVal bitm_bildimage As BitmapImage) As Image
 
        Dim im_image As New Image
 
        With im_image
            .Height = 100
            .Width = 100
            .Margin = New Thickness(10)
            .Source = bitm_bildimage
        End With
 
        fuc_image = im_image
    End Function
 
    Public Sub sub_imageanzeigen(ByVal im_image As Image)
        WrapPanel1.Children.Add(im_image)
    End Sub
 
    Public Function fuc_Dateiwählen() As List(Of String)
 
        Dim opfd_FileDialog As New OpenFileDialog
        Dim lst_dateien As New List(Of String)
 
        With opfd_FileDialog
            .Multiselect = True
            .Filter = "Jpeg|*.jpg*|Alle Dateien|*.*"
            .ShowDialog()
        End With
        For Each obj_ausgewählte_dateien As String In opfd_FileDialog.FileNames
            lst_dateien.Add(obj_ausgewählte_dateien)
        Next
        fuc_Dateiwählen = lst_dateien
    End Function
 
 End Class