Private intMax As Integer
 
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
   End If
End Sub

Alles ist (nicht) m?glich: Programmieren