Dim CoverSpeichern As New SaveFileDialog
        Dim img As Image = Image.FromHbitmap(CType(Me.PictureBox1.Image, _
          Bitmap).GetHbitmap)
        With CoverSpeichern
            .Filter = "JPEG (*.JPG, *.JPEG)|*.jpg"
            .Title = "Coverbild speichern"
 
            If .ShowDialog = DialogResult.OK Then
                '// PictureBox1.Image.Save(.FileName, 
                ' System.Drawing.Imaging.ImageFormat.Jpeg)
                img.Save(.FileName, _
                  System.Drawing.Imaging.ImageFormat.Jpeg)
            End If
 
        End With

   Public Sub Objekterkennung(ByVal himage, ByVal Param, ByVal graphic, ByVal _
     Anzeigemassstab, ByRef Pro1, ByRef Pro2)
        ...        
 
        hBitmap = himage
        iMax = hBitmap.Width - 1
        jMax = hBitmap.Height - 1
        For iBMP = 0 To iMax
            'ProgressBar.Value = iBMP / 480 * 100
            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)
                    'hBitmap.SetPixel(iBMP, jBMP, Color.White)
 
                    Y = Y + 1
                Else
                    graphic.DrawEllipse(Pens.RoyalBlue, iPaint, jPaint, 1, 1)
                    'hBitmap.SetPixel(iBMP, jBMP, Color.RoyalBlue)
 
                    X = X + 1
                End If
 
            Next
        Next
         ...
 
    End Sub