Создание структуры проекта. Помогите новичку

[=AGD=Doctor]

Я новичек в этом деле. Литература отсутствует.
Задача.
Нужно сделать Сервер, который будет генерить файлы и отправлять их по требованию на указанный IP.
Соответственно нужен Клиент, который запросит файл и примет его.
Какова должна быть структура Проекта?
Планировал реализовать как ВинСервис с модулями. Но для тестирования необходимо, чтоб сервис был *инсталлед*.
Может я чего не так думаю и все должно быть по другому?

[Duress]

Я новичек в этом деле. Литература отсутствует.
Задача.
Нужно сделать Сервер, который будет генерить файлы и отправлять их по требованию на указанный IP.
Соответственно нужен Клиент, который запросит файл и примет его.
Какова должна быть структура Проекта?
Планировал реализовать как ВинСервис с модулями. Но для тестирования необходимо, чтоб сервис был *инсталлед*.
Может я чего не так думаю и все должно быть по другому?

Необязательно использовать сервис. Можно включить в проект класс, обрабатывающий Приём и отправку сообщений по протоколу TCP/IP.

Dim sample As String = "A fatal error has occurred, and this program will be shut down."
Dim stringEncoder As Encoding = Encoding.Unicode
Dim sampleData() As Byte = stringEncoder.GetBytes(sample)

' Create the IP Endpoint for the IP address and port of the
' listening server.
Dim endpoint As New IPEndPoint(IPAddress.Parse("127.0.0.1"), 8000)

Dim sock As New Socket(endpoint.AddressFamily, _
SocketType.Stream, ProtocolType.Tcp)
Try
sock.Connect(endpoint)
sock.Send(sampleData)
Catch ex As Exception
' Place error handling code here.
Throw ex
End Try

' Create an IPEndPoint for the IP address and port desired.
Dim ipe As New IPEndPoint(IPAddress.Parse("127.0.0.1"), 8000)
Dim sock As New Socket(ipe.AddressFamily, SocketType.Stream, ProtocolType.Tcp)
Dim sampleData(100) As Byte

' Bind the socket, Listen for incoming data, and Recieve the data.
sock.Bind(ipe)
sock.Listen(10)
sock = sock.Accept()
sock.Receive(sampleData)

' Encode the Byte() into a string.
Dim stringEncoder As Encoding = Encoding.Unicode
Dim sample As String = stringEncoder.GetString(sampleData)

Приём сообщений лучше делать в цикле. А класс запускать в отдельном потоке