Private Function GetHash(ByVal Path As String) As String
        Try
            Dim f As New FileStream(Path, FileMode.Open, FileAccess.Read, _
              FileShare.Read, 500)
            Dim h As New MD5CryptoServiceProvider
            Dim b(300) As Byte
            f.Read(b, 0, 300)
            Dim str As String = (New UTF8Encoding).GetString(b) & _
              f.Length.ToString
            f.Close()
            Return Convert.ToBase64String((h.ComputeHash((New _
              UTF8Encoding).GetBytes(str)))).Replace("==", "")
        Catch
            Return Nothing
        End Try
    End Function
    Public Function Compare(ByVal Pic1 As String, ByVal Pic2 As String) As _
      Boolean
        If String.Compare(Pic1, Pic2) = 0 Then
            Return True
        Else
            Return False
        End If
    End Function