'Rotanteil der Pixel als Array zurück
    Public Function GetRedPixel(ByVal Bm As Bitmap) As Integer(,)
        Dim BMHeight As Integer = Bm.Height 'Y
        Dim BmWidth As Integer = Bm.Width 'X
        Dim PixelArray(BMHeight, BmWidth) As Integer
        For iy As Integer = 0 To Bm.Height - 1
            For ix As Integer = 0 To Bm.Width - 1
                PixelArray(iy, ix) = Bm.GetPixel(ix, iy).R
            Next
        Next
        Return PixelArray
    End Function