Dim i as Long
Dim Max as Long
dim PortNr as Long
 
irgendwo vorher:
    Max = 49
    PortNr = 5000
 
Private Sub WSCrtlGotoListen()
 
    Me.WSCtrl(0).LocalPort = PortNr
    Me.WSCtrl(0).Listen
 
    For i = 1 To Max
        Load Me.WSCtrl(i)
        Me.WSCtrl(i).LocalPort = PortNr + i
        Me.WSCtrl(gI).Listen
    Next i
End Sub
 
Private Sub WSCtrl_Disconnect()
    For i = Max To 0 Step -1
        Me.WSCtrl(i).Close
    Next i
End Sub