Public Function IntegerMatrix(ByVal bm As Bitmap) As Integer(,,)
        Dim Text As String = ""
 
        If Not bm Is Nothing Then
            Dim PixelArray(,) As Integer = GetRedPixel(bm) 'Läd alle Rotanteile 
            ' der Pixel des Bildes
            Dim ErkMatrix(3, 12, 288) As Integer 'Matrix zum erkennen (Zeilen 
            ' 1-3,YAchse,XAchse)
            Dim MatchLeer(3, 288) As Boolean 'Ist die Spalte leer
            Dim matchVor(3, 288) As Boolean 'Ist davor oder dahinter ein 
            ' Buchstabe
 
 
 
            For iY As Integer = 0 To Testbild.Height - 1 'YAchse SPALTEN
                For iX As Integer = 0 To Testbild.Width - 1 'XAchse ZEILEN
                    Select Case iY
                        Case 3 To 15 'Zeile1
                            Select Case iX
                                Case 2 To 288
                                    If iY = 3 Then 'Nach Trennung suchen Leere 
                                    ' Zeile + Buchstabe daneben
                                        For iZ As Integer = 3 To 13
                                            If iX > 1 Then
                                                If PixelArray(iZ, iX).ToString _
                                                  = "200" Or PixelArray(iZ, _
                                                  iX).ToString = "204" Then
                                                    If PixelArray(iZ, iX + _
                                                    1).ToString <> "200" And _
                                                    PixelArray(iZ, iX + _
                                                    1).ToString <> "204" Or _
                                                        PixelArray(iZ, iX - _
                                                        1).ToString <> "200" _
                                                        And PixelArray(iZ, iX - _
                                                        1).ToString <> "204" Then
                                                        matchVor(1, iX) = True
                                                    End If
                                                Else
                                                    MatchLeer(1, iX) = True
                                                End If
                                            Else
                                                If PixelArray(iZ, iX).ToString _
                                                  = "200" Or PixelArray(iZ, _
                                                  iX).ToString = "204" Then
                                                    If PixelArray(iZ, iX + _
                                                    1).ToString <> "200" And _
                                                    PixelArray(iZ, iX + _
                                                    1).ToString <> "204" Then
                                                        matchVor(1, iX) = True
                                                    End If
                                                Else
                                                    MatchLeer(1, iX) = True
                                                End If
                                            End If
                                        Next iZ
                                    End If
                                    If PixelArray(iY, iX).ToString = "200" Or _
                                      PixelArray(iY, iX).ToString = "204" Then
                                        If MatchLeer(1, iX) = False And _
                                        matchVor(1, iX) = True Then
                                            ErkMatrix(1, iY - 3, iX - 2) = 2
                                        Else
                                            ErkMatrix(1, iY - 3, iX - 2) = 0
                                        End If
 
                                    Else
                                        ErkMatrix(1, iY - 3, iX - 2) = 1
                                    End If
                            End Select
 
 
                        Case 16 To 28 'Zeile2
                            Select Case iX
                                Case 2 To 288
                                    If iY = 16 Then 'Nach Trennung suchen Leere 
                                    ' Zeile + Buchstabe daneben
                                        For iZ As Integer = 16 To 26
                                            If iX > 1 Then
                                                If PixelArray(iZ,