hBitmap = himage
        iMax = hBitmap.Width - 1
        jMax = hBitmap.Height - 1
        For iBMP = 0 To iMax           
            For jBMP = 0 To jMax
                col = hBitmap.GetPixel(iBMP, jBMP)
                iPaint = CLng(iBMP / Anzeigemassstab)
                jPaint = CLng(jBMP / Anzeigemassstab)
                If IstBoden(col, Param(0), Param(1), Param(2), Param(3), Param( _
                  4)) Then
                    graphic.DrawEllipse(Pens.White, iPaint, jPaint, 1, 1)
                    Y = Y + 1
                Else
                    graphic.DrawEllipse(Pens.RoyalBlue, iPaint, jPaint, 1,1)
                    X = X + 1
                End If
 
            Next
        Next

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
 
        Dim img As Image = Me.PictureBox1.Image '// winnt.bmp
        Dim ofd As New SaveFileDialog
        If ofd.ShowDialog() = DialogResult.OK Then
            img.Save(ofd.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
        End If
    End Sub

img.Save(ofd.FileName, System.Drawing.Imaging.ImageFormat.Jpeg