--> Private Sub WS1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
On Error Resume Next
Dim X As Long

If Index = 0 Then
For X = 1 To intMax
If ws1(X).State = sckClosed Then
ws1(X).LocalPort = 0
ws1(X).Accept requestID
Exit Sub
End If
Next X
intMax = intMax + 1
Load ws1(intMax)
ws1(intMax).LocalPort = 0
ws1(intMax).Accept requestID
End If
End Sub


alle prima righe mi da questo errore: procedure declaration does not match description of event or procedure having the same name

cosa devo cambiare?

grazie delle risposte