PROBLEMA COM PACOTE DE WINSOCK

Citação:

Private Sub Command2_Click()
Label1.Caption = "Modo Servidor"
Command3.Enabled = False
For x = 1 To 50
Load Socket(x)
Next x
Socket(0).Listen
End Sub

Private Sub Socket_Close(Index As Integer)
Deslogar (Index)
End Sub

Private Sub Socket_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Socket(Index).Close
Socket(Index).Accept requestID
DarSocket (Index)
Logar (Index)
End Sub

Private Sub Socket_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim Data As String
Dim Socket1 As Integer
Dim String1 As String
Socket(Index).GetData Data
Comands = Split(Data, vbTab)
Select Case Comands(0)
    Case "Mover"
        Socket1 = Val(Comands(1))
        String1 = Comands(2)
        Mover Socket1, String1
End Select
End Sub

Private Sub Socket_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Erro na conexão"
End Sub

Private Sub Deslogar(Index As Integer)
For x = 0 To 50
If Socket(Index).State = 7 Then
Socket(Index).SendData "Deslogar" & vbTab & Index
End If
Next x
End Sub

Private Sub Logar(Index As Integer)
For x = 0 To 50
If Socket(x).State = 7 Then
Socket(x).SendData "Logar" & vbTab & Index
End If
Next x
End Sub

Private Sub Mover(Index As Integer, Coordenadas As String)
For x = 0 To 50
If Socket(x).State = 7 Then
Socket(x).SendData "Mover" & vbTab & Index & vbTab & Coordenadas
End If
Next x
End Sub

Private Sub DarSocket(Index As Integer)
Socket(Index).SendData "Socket" & vbTab & Index
End Sub