Bild in Picturebox komprimiert laden

Ich möchte ein Bild während der Laufzeit in eine Picturebox laden.
das funktioniert soweit.

OpenFileDialog1.ShowDialog()
      Dim bild As String
      bild = OpenFileDialog1.FileName
      PictureBox1.Refresh()
      PictureBox1.Image = New Bitmap(bild)
      PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

Wie ist es nun möglich, dieses Bild gleich zu komprimieren?
Oder wie ist es möglich das Bild komprimiert in die DB zu speichern?

Vielen Dank für eure Antworten.

Grüsse

Hat sich erledigt…

Ich komprimiere immer mit Packprogrammen, allerdings nur bei mehreren Bildern, sonst lohnt sich es nicht wirklich :slight_smile: