I never use to get this error, but then it popped out of no where. VB2010 points at this line for the error.
Dim fs As New IO.FileStream(OpenFileDialog1.FileName, IO.FileMode.Open, IO.FileAccess.ReadWrite)
Dim fs As New IO.FileStream(OpenFileDialog1.FileName, IO.FileMode.Open, IO.FileAccess.ReadWrite)