Source code

Public Sockets() As winsock  

Public Sub Form_Load()
   sock.Listen  ' This is the Listening Socket, never touch this state ;)
End Sub

Public Sub sock_ConnectionRequest(requestSocket As Socket)
   Dim Index As Long 
   Index = Ubound(sockets)+1	'Create new Index from the last in the array + 1
   Redim sockets(Index)        	'Redim the array
   Set sockets(index) = New Winsock  	'Load a new instance of the Winsock Control in the container
   sockets(index).Accept requestsocket   'This new instance accept the requestsocket
End Sub

Public Sub sockets_DataArrival(bytesTotal As Long) 'here i dont receive nothing
End Sub

Public Sub sockets()_DataArrival(bytesTotal As Long) 'This make an error because the "()"
End Sub

Public Sub sockets_DataArrival(bytesTotal As Long, Index as long ) 'This is a madness  :evil: 
End Sub

Source code

Public Sockets() As winsock  

Private Sub Form_Load()
   sock.Listen   'Let's open the port :)
End Sub

Private Sub sock_ConnectionRequest(requestSocket As Socket)
   Dim NewSocket As Winsock 
   Set NewSocket = GetEmptySocket()	'Use the magic function :P
   NewSocket.Accept requestsocket  	'Acept the input client
End Sub

Private Function GetEmptySocket() As Winsock 
   Dim Index As Long
   index = -1
   For i = 0 To Ubound(Sockets)   'Lets see if there is a empty slot in the array
  	If Sockets(i) = Nothing Then   'We found an Empty Slot
     	index = i
     	Exit For  'Exit the loop
  	End If
   Next i
   If index = -1 Then	'We dont found a empty slot, so we grow the array (create a slot)
  	Index = Ubound(Sockets)+1
  	Redim Preserve Sockets(Index)
   End If
   Set Sockets(index) = New Winsock	
   Set GetEmptySocket = sockets(index)	'Load and put the new socket
   '################################################################
   'TODO: Search for Empty Bounds to decrease the size of the array
   '################################################################
End Function
  
Private Sub Timer1_Timer() 'This timer will handle the arrive of data for all the sockets and Generate And Event to handle
   Dim sData As String 
   For i = 0 To Ubound(sockets) 'Let's search in all the sockets
  	If sockets(i) <> Nothing  Then  'If this is a empty Slot then exit
     	If sockets(i).State <> 7 Then   'If this Socket is recently closed  :::TODO::: Generate Event Disconected
        	Set sockets(i) = Nothing 	'Lets remove the instance ... getting an empty slot :)
     	Else
        	sData = sockets(i).GetData   'Lets get the input buffer
        	If sData <> "" Then      	'If there is something in the buffer   
           	msgbox "Data received from socket: " & i & " the data: " & sData  	'MessageBox the Socket Number and the received data
        	End If
     	End If
  	End If
   Next i
End Sub