毎回、早い対応ありがとうございます
確かに、ストリーム.close をしなければエラーは出なくなりました

ただ、画像を読み込む、あとで書き込む　ということをするために
ストリーム.close をしないと書き込めませんので
closeをすることは必要なのです

いろいろとやってみましたが、縦長の画像ではエラーにならずに横長の画像ではエラーに
なるのは、理由がわからないところです

あと、clone というのを検索しているところで、Deepcloneといものを見つけました
    Public Function DeepClone(Of T)(src As T) As T
        Using memoryStream = New System.IO.MemoryStream()
            Dim binaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
            binaryFormatter.Serialize(memoryStream, src) ' シリアライズ
            memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
            Return binaryFormatter.Deserialize(memoryStream) ' デシリアライズ
        End Using
    End Function
これを使えば、エラーにならず、ファイルのロックもされないことができて
解決できました