VB.netでファイルを読み込み専用(ReadOnly)で開く

別のソフトで開かれている状態でもテキストファイルを読み込みたかったので、
読み込み専用でファイルを開く方法を調べてみました。
私用のメモ書きとして残しておきます。

書込みモードで開かれているテキストファイルを読み取り専用で開く

Import System.IO
Dim strLine as String
Dim FilePath as String ="c:\test\test.txt"

Using Stream As FileStream = New FileStream(FilePath, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
    Using Reader As StreamReader = New StreamReader(Stream)
    	'ここに処理とかを書く
    	'例：１行ずつ読み取って、出力画面に表示する
        Do While Reader.EndOfStream = False
            strLine = Reader.ReadLine()
            Console.WriteLine(strLine)
        Loop
    End Using
End Using

StreamReaderでテキストファイルを読み込む方法(今までやってた方法)

これだと書込みモードで開いているファイルを読み込もうとすると例外エラーが発生する。

Import System.IO
Dim strLine as String
Dim FilePath as String ="c:\test\test.txt"

Using Reader As New StreamReader(FilePath)
    'ここに処理とかを書く
    '例：１行ずつ読み取って、出力画面に表示する
    Do While Reader.EndOfStream = False
        strLine = Reader.ReadLine()
        Console.WriteLine(strLine)
    Loop
End Using

こちらを参考にさせて頂きました。
http://blog.livedoor.jp/mshibuya19750510/archives/50834415.html