Public Function DataCompare(ByVal d1() As Byte, ByVal d2() As Byte) As Boolean
        if not d1.Length = d2.Length then return false
        For i As Integer = 0 To d1.Length - 1
            If Not (d1(i) = d2(i)) Then Return False
        Next
        Return true
    End Function