WinSock. Как правильно остановить сервер? - VB

Формулировка задачи:

Всем привет! Понимаю что в данном разделе +100500 таких тем.. просто бьюсь над этим давно и никак не могу победить ! Суть в следующем:

Многопользовательский сервер с использованием WinSock делается посредством создания массива таких элементов, при этом таких элементов можно создать
не более 32 767
(таков размер переменной типа Integer), соответственно многопользовательский сервер при этом сможет поддерживать соединение с 32 767 клиентами одновременно.
Как правильно остановить сервер? Т.е. у меня есть саб следующего вида:
Visual Basic
Правда при попытке возобновления прослушки порта выходит ошибка "Address is use", мол порт уже занят и прослушивать его невозможно. Лечиться это только закрытием и открытием занова приложения.
В связи с тем что данный контрол имеет такого рода недостатки хотел спросить,
может у кого есть какой класс-модуль для работы с TCP соединением?
?? Или просто какое решение которое могло бы прийти на смену данному контролу?!

Решение задачи: «WinSock. Как правильно остановить сервер?»

textual
                            Листинг программы 
                        

                            Private Sub Close_connection_Click()
Dim x As Long
txtStatus.Clear
txtStatus.AddItem "Остановка сервера ..>>"
For x = sockMain.UBound To 0 Step -1
    sockMain(x).Close
Next
txtStatus.Clear
txtStatus.AddItem "<< Сервер остановлен >>"
End Sub
                        