Imports System.IO
Module Module1
Sub Main()
Using fs As New FileStream("d:\data.bin", FileMode.Open,
FileAccess.Read,
FileShare.ReadWrite)
Using br As New BinaryReader(fs)
Dim i As Integer = br.ReadInt32()
Console.WriteLine(i)
End Using
End Using
End Sub
End Module
' run:
'
' 3