Dim fileStream As FileStream = File.Open([filename], FileMode.Open, FileAccess.Read, FileShare.Read)
        Dim reader As BinaryReader = New BinaryReader(fileStream)
        Dim fileLength As Long = fileStream.Length
        Dim sendBytes(fileLength) As Byte
 
        reader.Read(sendBytes, 0, fileLength)       
        serverStream.Write(sendBytes, 0, fileLength)
fileStream.Close()
reader.Close()

Dim bgStream As NetworkStream = clientSocket.GetStream()
Dim bgbytes(100024) As Byte
bgStream.Read(bgbytes, 0, CInt(clientSocket.ReceiveBufferSize))
 
Dim gmb As New FileStream([filename], FileMode.Create, FileAccess.Write, FileShare.Write)
Dim fileLength As Long = bgbytes.Length
Dim writer As BinaryWriter = New BinaryWriter(gmb)
writer.Write(bgbytes)       
 
writer.Close()
gmb.Close()

Private PACKET_SIZE As UInt16 = 4096
.
.
SyncLock Client.GetStream
  Reader = New BinaryReader(Client.GetStream)
  'next we expect a pass-through byte
  Client.GetStream.Read(ReadByte, 0, 1)
  PassThroughByte = ReadByte(0)
  'next expect length of data (Int32)
  NData = Reader.ReadInt32
  LenData = NData
  'now comes the data, save it in a memory stream
  MStream = New MemoryStream
  While NData > 0
    RaiseEvent TransferProgress(Me, PassThroughByte, CSng(1.0 - NData / LenData))
    LData = Me.Client.GetStream.Read(ReadBuffer, 0, PACKET_SIZE)
    MStream.Write(ReadBuffer, 0, LData)
    NData -= LData
  End While
  'Continue the asynchronous read from the NetworkStream
  Me.Client.GetStream.BeginRead(ReadByte, 0, 1, AddressOf ReceiveOneByte, Nothing)
End SyncLock

Private PACKET_SIZE As UInt16 = 4096
.
.
Dim Reader As BinaryReader
Dim ReadBuffer(PACKET_SIZE - 1) As Byte
Dim NData As Int32
Dim MStream As MemoryStream
Dim LData As Int32
 
Reader = New BinaryReader(Client.GetStream)
' Read Length of data (Int32)
NData = Reader.ReadInt32
' Now comes the data, save it in a memory stream
MStream = New MemoryStream
While NData > 0
  LData = Me.Client.GetStream.Read(ReadBuffer, 0, PACKET_SIZE)
  MStream.Write(ReadBuffer, 0, LData)
  NData -= LData
End While

Dim fileStream As FileStream = File.Open([filename], FileMode.Open, FileAccess.Read, FileShare.Read)
Dim reader As BinaryReader = New BinaryReader(fileStream)
Dim fileLength As Int32 = CInt(fileStream.Length)
Dim sendBytes(fileLength - 1) As Byte
 
reader.Read(sendBytes, 0, fileLength)
' Send length first
serverStream.WriteInt32(fileLength)
' Now, send the data
serverStream.Write(sendBytes, 0, fileLength)

 Dim fileStream As FileStream = File.Open(backg, FileMode.Open, FileAccess.Read, FileShare.Read)
        Dim reader As BinaryReader = New BinaryReader(fileStream)
        Dim fileLength As Int32 = CInt(fileStream.Length)
        Dim sendBytes(fileLength - 1) As Byte

        reader.Read(sendBytes, 0, fileLength)
        ' Send length first
        serverStream.WriteInt32(fileLength)
        ' Now, send the data
        serverStream.Write(sendBytes, 0, fileLength)

Private PACKET_SIZE As UInt16 = 4096
.
.
Dim ByteArray() As Byte ' Data buffer
Dim Fs As FileStream = New FileStream(FilePath, FileMode.Open, FileAccess.Read)
Dim Reader As New BinaryReader(Fs)
 
Try
  Dim Writer As New BinaryWriter(Me.Client.GetStream) ' Get socket's stream
  'send size of file
  Writer.Write(CInt(Fs.Length))
  'Send the file data
  Do
    'read data from file
    ByteArray = Reader.ReadBytes(PACKET_SIZE)
    'write data to Network Stream
    Writer.Write(ByteArray)
  Loop While ByteArray.Length = PACKET_SIZE
  'make sure all data is sent
  Writer.Flush()
  Writer.Close()
  Reader.Close()
Catch ex As Exception
  ' Handle errors
End Try