Public Function BildAusblenden(ByVal Originalbild As Image) As Bitmap
        Dim bmp As New Bitmap(Originalbild)
        Dim lgBrush As New Drawing2D.LinearGradientBrush(New Rectangle(0, _
          bmp.Height - 60, _
        bmp.Width, 60), Color.Transparent, Color.White, _
        Drawing2D.LinearGradientMode.Vertical)
 
        Using g As Graphics = Graphics.FromImage(bmp)
            g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
            g.FillRectangle(lgBrush, lgBrush.Rectangle)
        End Using
        Return bmp
    End Function

PictureBox1.Image = BildAusblenden(Image.FromFile("Dein Bild"))