Пример с описанием находится в архиве WinSock. Для работы проекта ваш VB должен иметь компонент Microsoft WinSock Control.

Загрузите проект WinSock.vbp из каталога WinSock. В проект входят две формы: клиент и сервер. Клиент соединяется с сервером, используя протокол TCP/IP, и отсылает ему число из верхнего текстбокса (сумма в USD). Сервер получает число, умножает его на число из своего текстбокса (курс валюты) и возвращает результат клиенту, который отображает его в нижнем текстбоксе (сумма в рублях). Код обильно комментирован и, надеюсь, вопросов не вызовет.

В качестве следующего шага на одном компьютере загрузите проект Server.vbp из каталога Server архива, а на другом компьютере — проект Client.vbp из каталога Client. Если сеть настроена правильно и вы верно указываете имя или адрес сервера, то пример заработает. Можно на разных компьютерах запускать и скомпайленные exe-файлы, но в этом случае вы не будете иметь возможности отследить в динамике работу примера.

И о плохом. ;-)

В примере опущен код, который отвечает за перехват ошибок, неизбежно возникающих при связи. Этот код вы без труда напишете сами, используя ивент Error винсока.

И второе. При пересылке значительных объемов информации, например, файла на 100 КБ, он будет разбиваться на части и приниматься винсоком кусочками. Поэтому вы должны проверять, был ли получен весь файл или нужно продолжить его прием. Самый простой путь — перед пересылкой файла удаленному винсоку отсылать заголовочек, в котором указывать имя передаваемого файла, его размер, дату и т. д.