<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <Title>Compare Byte Array</Title>
      <Shortcut>CompareByteArray</Shortcut>
      <Description>Compare Byte Array [VB.NET]</Description>
      <Author>L H</Author>
      <HelpUrl>/PreviewSnippet.aspx?SnippetID=04513c51-50c0-4a8a-9220-627c77b7ced1</HelpUrl>
      <SnippetTypes>
        <SnippetType>SurroundsWith</SnippetType>
      </SnippetTypes>
    </Header>
    <Snippet>
      <Code Language="VB"><![CDATA[    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]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>