[VB] Winsock con mas conexiones

Dim UltimoIndex As Integer

Private Sub Command1_Click()
Winsock1(0).LocalPort = "1820" ' puerto a esuchar
Winsock1(0).Listen 'comienza escucha
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Winsock1(0).Close
Command1.Enabled = True
Command2.Enabled = False
Label1.Caption = " "
End Sub

Private Sub Form_Load()
Winsock1(0).Close ' Al iniciar cierra conexiones abiertas
End Sub

Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
UltimoIndex = UltimoIndex + 1               'Cargo un nuevo index a mi variable de control
Load Winsock1(UltimoIndex)                  'Cargo un nuevo objeto winsock para manejar esta conexion
Winsock1(UltimoIndex).Close                 'Cierro el socket
Winsock1(UltimoIndex).Accept requestID      'Lo acepto
Label1.Caption = UltimoIndex & " - El equipo remoto esta conectado"
End Sub

Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos 'Recibe los datos y lo guarda
Label4.Caption = datos 'Muestra lo que recibe

Select Case datos ' Hacemos un Select C. a la variable

Case "pc1"
Shell "C:\wakeforlan\lanstartCMD.exe 00-19-D1-3B-XX-XX", vbMaximizedFocus

Case "pc2"
Shell "C:\wakeforlan\lanstartCMD.exe 00-0A-E6-C1-X-XX", vbMaximizedFocus

End Select
End Sub

Private Sub Winsock1_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)
Label1.Caption = "Salto error: " & Index & " | " & Number
End Sub