Private Function GetPic(filename As String, picsize As Size) As Bitmap
 
        Dim bmpout As Bitmap  
        'Rückgabe-Bitmap (Bild zentriert eingepasst)
 
        Using bmp As New Bitmap(filename)
            'erforderliche Bildgröße berechnen (Zoomen)
            Dim w, h, l, t As Integer
            w = CInt(bmp.Width * picsize.Height / bmp.Height)
            h = picsize.Height
            If w > picsize.Width Then
                h = CInt(bmp.Height * picsize.Width / bmp.Width)
                w = picsize.Width
            End If
            'Bild zentrieren
            l = (picsize.Width - w) \ 2
            t = (pic_size.Height - h) \ 2
 
            'Ausgabebitmap
            bmpout = New Bitmap(pic_size.Width, pic_size.Height)
 
            'Geladenes Bild in erforderlicher Größe neu zeichnen
            Using gout As Graphics = Graphics.FromImage(bmpout)
                gout.InterpolationMode =
                    Drawing2D.InterpolationMode.HighQualityBicubic
                gout.Clear(Color.LightGray) 'Hintergrundfarbe setzen
                gout.DrawImage(bmp,
                            New Rectangle(l, t, w, h),
                            New Rectangle(0, 0, bmp.Width, bmp.Height),
                            GraphicsUnit.Pixel)
            End Using
        End Using
        Return bmpout
 
    End Function