Hash = System.Security.Cryptography.HashAlgorithm.Create
 
        'Hash für File1
        Dim fsA As New FileStream(File1, FileMode.Open)
        Dim Hash1 As Byte() = Hash.ComputeHash(fsA)
        fsA.Close()
 
        'Hash für File2
        Dim fsB As New FileStream(File2, FileMode.Open)
        Dim Hash2 As Byte() = Hash.ComputeHash(fsB)
        fsB.Close()
 
        If BitConverter.ToString(Hash1) = _
           BitConverter.ToString(Hash2) Then
            txtResult.Text = "Sind gleisch"
 
        Else
            txtResult.Text = "noe sind nisch gleisch"
        End If