Private Sub WinSock_Close(Index As Integer)
    WinSock(Index).Close
    Unload WinSock(Index)
End Sub

Private Sub SendMessage(Message As String)
    Dim I As Integer
 
    ' Weiterleiten an alle verbundennen clients
    For I = 1 To WinSock.Count - 1
 
        ' Steht die Verbindung mit dem Clienten 
        If WinSock(I).State = 7 Then WinSock(I).SendData Message
    Next I
End Sub

----
GriZz