Как использовать два winsock контрола в одном проекте

'объявляю функцию проигрывания звука (буду проигрывать звук при приходе сообщения)
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
 
'нажатие кнопки Connect
Private Sub cmdConnect_Click()
'указываю ip адреса для первого и второго winsock
tcpClient.RemoteHost = "93.79.151.166"
Winsock1.RemoteHost = "93.79.151.166"
'указываю порты
tcpClient.RemotePort = 1001
Winsock1.RemotePort = 1000
'убираю возможность повторного нажатия кнопки connect
cmdConnect.Enabled = 0
'включаю текст бокс для ввода сообщений
mess.Enabled = True
'включаю возможность нажатия кнопки отправки сообщения
cmdSend.Enabled = True
'включаю возможность нажатия кнопки Disconnect
Command2.Enabled = True
'тут все понятно
tcpClient.Connect
Winsock1.Connect
MsgBox "Connected!", 64, "Message"
'посылаем сообщение со второго winsock
Winsock1.SendData "Name"
End Sub
 
'нажатие кнопки отправки сообщения
Private Sub cmdSend_Click()
'проверяем что в поле для ввода что-то введено
If mess.Text <> "" Then
'если произошла ошибка показываем сообщение об ошибке
On Error GoTo ks
'отправляем сообщение
tcpClient.SendData mess.Text
'добавляем свое сообщение в listbox
List1.AddItem "Me: " + mess.Text
'таким образом делаем автоматический скроллинг
List1.ListIndex = List1.ListCount - 1
'очищаем поле ввода сообщений
mess.Text = ""
'выходим чтобы не попасть на сообщение об ошибке, когда ее нет
Exit Sub
ks:
mess.Text = ""
MsgBox "You aren't connected to server!", 16, "Error"
End If
End Sub
 
'это кнопка выхода
Private Sub Command1_Click()
If MsgBox("Do you wish exit?", vbExclamation + vbYesNo, "Message") = vbYes Then End
End Sub
 
'эта кнопка дисконнекта
Private Sub Command2_Click()
If MsgBox("Do you wish disconnect? All messages will be deleted.", vbQuestion + vbYesNo, "Message") = vbYes Then
'разрешаем кнопку соединения
cmdConnect.Enabled = True
'запрещаем кнопку дисконнекта
Command2.Enabled = False
'закрываем соединение
tcpClient.Close
MsgBox "Disconnected", vbExclamation, "Message"
End If
End Sub
 
'если нажата кнопка Enter происходит отправка сообщения
Private Sub mess_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If mess.Text <> "" Then
On Error GoTo ks1
tcpClient.SendData mess.Text
List1.AddItem "Me: " + mess.Text
List1.ListIndex = List1.ListCount - 1
mess.Text = ""
Exit Sub
ks1:
mess.Text = ""
MsgBox "You aren't connected to server!", 16, "Error"
End If
End If
End Sub
 
'если пришло сообщение
Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    'принимаем сообщение
    tcpClient.GetData strData
    List1.AddItem "Interlocutor: " + strData
    'останавливаем проигрывание (вдруг звук играл)
    Call mciExecute("stop msg.mp3")
    'начинаем проигрывать звук
    Call mciExecute("play msg.mp3")
    'автоскроллинг
    List1.ListIndex = List1.ListCount - 1
End Sub
 
'принимаем сообщение от второго winsock
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dat As String
Winsock1.GetData dat
nam2 = dat
End Sub

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
 
'кнопка отправки
Private Sub cmdSend_Click()
On Error GoTo ks
tcpServer.SendData mess.Text
List1.AddItem "Me: " + mess.Text
List1.ListIndex = List1.ListCount - 1
mess.Text = ""
Exit Sub
ks:
mess.Text = ""
MsgBox "You aren't connected to client!", 16, "Error"
End Sub
 
'кнопка выхода
Private Sub Command1_Click()
If MsgBox("Do you wish exit?", vbExclamation + vbYesNo, "Message") = vbYes Then End
End Sub
 
'слушаю порты 1001 и 1000
Private Sub Form_Load()
tcpServer.LocalPort = 1001
tcpServer.Listen
Winsock1.LocalPort = 1000
Winsock1.Listen
End Sub
 
Private Sub mess_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If mess.Text <> "" Then
On Error GoTo ks1
tcpServer.SendData mess.Text
List1.AddItem "Me: " + mess.Text
mess.Text = ""
List1.ListIndex = List1.ListCount - 1
Exit Sub
ks1:
mess.Text = ""
MsgBox "You aren't connected to client!", 16, "Error"
End If
End If
End Sub
 
'когда к серверу хотят подсоединится, смотрим, открыто ли соединение, если да, то закрываем его
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then tcpServer.Close
tcpServer.Accept requestID
End Sub
 
Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
tcpServer.GetData strData
List1.AddItem "Interlocutor: " + strData
Call mciExecute("stop msg.mp3")
Call mciExecute("play msg.mp3")
List1.ListIndex = List1.ListCount - 1
End Sub

Private Sub Command1_Click()
Winsock1.SendData Text1.Text
Winsock2.SendData Text2.Text
End Sub

Private Sub Command1_Click()
Winsock2.SendData Text2.Text
Winsock1.SendData Text1.Text
End Sub