Как правильно открыть и сохранять файлы, которые используются текущим приложением

Class MyForm
    Inherits System.Windows.Forms.Form
    
    Private stream As FileStream
    
    Private Sub OpenFile(ByVal fileToOpen As String)
        If stream IsNot Nothing Then
            If stream.Name = fileToOpen Then
                ' Поток для указанного пути уже был открыт
                stream.Position = 0
            Else
                stream.Close()
                stream = New FileStream(fileToOpen, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
            End If
        End If
        
        ' Используеи конструктор StreamReader с аргументом leaveOpen = True
        ' Это позволит закрыть StreamReader не закрывая нижележащий поток
        Using reader As New StreamReader(stream, Encoding.UTF8, True, 16*1024, True)
            ' Читаем данные
            ' ...
        End Using
    End Sub
    
    Private Sub SaveFile(ByVal fileToOpen As String)
        If stream IsNot Nothing Then
            If stream.Name = fileToOpen Then
                ' Поток для указанного пути уже был открыт
                stream.Position = 0
                stream.SetLength(0)
            Else
                stream.Close()
                stream = New FileStream(fileToOpen, FileMode.Create, FileAccess.ReadWrite, FileShare.None)
            End If
        End If
        
        ' Используеи конструктор StreamWriter с аргументом leaveOpen = True
        ' Это позволит закрыть StreamWriter не закрывая нижележащий поток
        Using writer As New StreamWriter(stream, Encoding.UTF8, 16*1024, True)
            ' Записываем данные
            ' ...
        End Using
    End Sub
    
    Private Sub HandleFormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        If stream IsNot Nothing Then
            stream.Close()
        End If
    End Sub
End Class

Class MyForm
    Inherits System.Windows.Forms.Form
    
    Private stream As FileStream
    
    Private Sub OpenFile(ByVal fileToOpen As String)
        If stream IsNot Nothing Then
            If stream.Name = fileToOpen Then
                ' Поток для указанного пути уже был открыт
                stream.Position = 0
            Else
                stream.Close()
                stream = New FileStream(fileToOpen, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
            End If
        End If
        
        Using reader As New StreamReader(stream)
            ' Читаем данные
            ' ...
        End Using
        
        ' Открываем поток заново
        stream = New FileStream(fileToOpen, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
    End Sub
    
    Private Sub SaveFile(ByVal fileToOpen As String)
        If stream IsNot Nothing Then
            If stream.Name = fileToOpen Then
                ' Поток для указанного пути уже был открыт
                stream.Position = 0
                stream.SetLength(0)
            Else
                stream.Close()
                stream = New FileStream(fileToOpen, FileMode.Create, FileAccess.ReadWrite, FileShare.None)
            End If
        End If
        
        Using writer As New StreamWriter(stream)
            ' Записываем данные
            ' ...
        End Using
        
        ' Открываем поток заново
        stream = New FileStream(fileToOpen, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
    End Sub
    
    Private Sub HandleFormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        If stream IsNot Nothing Then
            stream.Close()
        End If
    End Sub
End Class