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