Αλλαξε το
Dim fs = New FileStream(p, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
σε
Dim fs as New FileStream(p, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
Δηλαδή το = με AS
νομίζω ότι 8α σου λύσει το πρόβλημα.
-------------------------------
Κ. Γιαγιάς
Θα ήθελα να είμαι μέσα στην φωτογραφία και όχι εδώ!!!!
http://beastie06.wordpress.com