--> 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