Dim FileStream As New FileStream(e.Argument.ToString, FileMode.Open, _
  FileAccess.Read)
                    Dim MD5 As New MD5CryptoServiceProvider
                    Dim CryptoStream As New CryptoStream(FileStream, MD5, _
                      CryptoStreamMode.Read)
                    While CryptoStream.ReadByte <> -1
                    End While
                    CryptoStream.Close()
                    Dim HashVal() As Byte = MD5.Hash
                    MD5.Clear()
                    For Each oByte As Byte In HashVal
                        HashValasHex += oByte.ToString("x2")
                    Next