Imports System
Imports System.Drawing
Imports System.Drawing.Imaging
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim strImgFile As String = "c:\test.bmp"
        Dim bmap As Bitmap
        bmap = Me.PictureBox1.Image
        bmap.Save("C:\test.jpg", ImageFormat.Jpeg)
 
        MessageBox.Show("Bild wurde gespeichert als " & strImgFile, _
            "Bild wurde gespeichert", MessageBoxButtons.OK, _
            MessageBoxIcon.Information)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.PictureBox1.Image = Image.FromFile("C:\windows\angler.bmp")
    End Sub
End Class