<Window x:Class="MainWindow"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="MainWindow" Height="350" Width="525">
    <Grid>
        <Button Content="Button" Height="23" HorizontalAlignment="Left" _
          Margin="416,276,0,0" Name="Button1" VerticalAlignment="Top" _
          Width="75" />
        <WrapPanel Height="258" HorizontalAlignment="Left" Margin="12,12,0,0" _
        Name="WrapPanel1" VerticalAlignment="Top" Width="479" />
    </Grid>
</Window>

Imports System.Windows.Forms
Class MainWindow
 
    Dim cls_Haubtprog As New Cls_Haubtprogramm
    Private Sub Button1_Click(sender As System.Object, e As _
      System.Windows.RoutedEventArgs) Handles Button1.Click
 
        cls_Haubtprog.sub_Haubtprogramm()
 
    End Sub
 
    Public Sub sub_imageanzeigen(ByVal im_image As Image)
        WrapPanel1.Children.Add(im_image)
    End Sub
End Class
 
Public Class Cls_Haubtprogramm
 
 
    Public Sub sub_Haubtprogramm()
 
        Dim cls_Dateie_auswählen As New Cls_Dateien_auswählen
        Dim cls_Image As New Cls_Image
        Dim cls_MainWindow As New MainWindow
 
        Dim lst_Dateien As New List(Of String)
        Dim im_image As New Image
        Dim str_datei As String
        Dim bitm_bildimage As BitmapImage
 
        lst_Dateien = cls_Dateie_auswählen.fuc_Dateiwählen
 
        For Each str_datei In lst_Dateien
 
            bitm_bildimage = cls_Image.fuc_bildladen(str_datei)
 
            im_image = cls_Image.fuc_image(bitm_bildimage)
 
            cls_MainWindow.sub_imageanzeigen(im_image)
        Next
 
    End Sub
End Class
 
Public Class Cls_Dateien_auswählen
 
    Public Function fuc_Dateiwählen()
 
        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 In opfd_FileDialog.FileNames
            lst_dateien.Add(obj_ausgewählte_dateien)
        Next
 
 
        fuc_Dateiwählen = lst_dateien
    End Function
End Class
 
 
 
Public Class Cls_Image
 
    Dim cls_haubt As Cls_Haubtprogramm = New Cls_Haubtprogramm
 
    Public Function fuc_bildladen(ByVal str_datei As String)
 
        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)
 
        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
End Class