[VB6] winsock è multiconnessione

[x69asterix]

ma non ci capisco più nulla questo non è altro che un copia è incolla:

Private intMax As Long

Private Sub Form_Load()
   intMax = 0
   sckServer(0).LocalPort = 1001
   sckServer(0).Listen
End Sub

Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)  
   If Index = 0 Then
      intMax = intMax + 1
      Load sckServer(intMax)
      sckServer(intMax).LocalPort = 0
      sckServer(intMax).Accept requestID
      Load txtData(intMax)
   End If
End Sub

cosa c' è di sbagliato? :master:
il winsock l' ho chiamato sckServer