Public Function CheckArrays(ByVal bol1(,) As Boolean, ByVal bol2(,) As Boolean)
	Dim FehlerCount As Integer
	  For y As Integer = 0 To 4 '4 ist jetzt eine festgelegte Größe in meinem 
' Projekt
	   For x As Integer = 0 To 4
			If bol1(x, y) = bol2(x, y) = False Then
				FehlerCount += 1
		        End If
	    Next
	   Next
	If FehlerCount = 0 Then
		Return True
	End If
	Return False
End Function