Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Button3.Click
        Dim Filestream1 As New System.IO.FileStream("C:\test.txt", _
        System.IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.ReadWrite)
    End Sub