Public Function Image2ByteArray(ByVal Bild As Image, ByVal Bildformat As _
   System.Drawing.Imaging.ImageFormat) As Byte()
        Dim MS As New IO.MemoryStream
        Bild.Save(MS, Bildformat)
        MS.Flush()
        Return MS.ToArray
    End Function