codice:
Dim aFileStream As New FileStream( _             
"Test#@@#.dat", FileMode.OpenOrCreate, _             
FileAccess.ReadWrite, FileShare.ReadWrite)