For iZ As Integer = 29 To 39
                                            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(3, iX) = True
                                                    End If
                                                Else
                                                    MatchLeer(3, 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(3, iX) = True
                                                    End If
                                                Else
                                                    MatchLeer(3, 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(3, iX) = False And _
                                        matchVor(3, iX) = True Then
                                            ErkMatrix(3, iY - 29, iX - 2) = 2
                                        Else
                                            ErkMatrix(3, iY - 29, iX - 2) = 0
                                        End If
                                    Else
                                        ErkMatrix(3, iY - 29, iX - 2) = 1
                                    End If
                            End Select
                    End Select
 
                Next iX
            Next iY
 
 
 
 
            Return ErkMatrix
        End If
 
        Return Nothing
    End Function