controllo codice [vb6]

[lofcarlos]

solo alla prima riga

[AleX ZeTa]

credo ke la risposta sia 2 post + sopra^^ hai sbagliato a dare il nome alla WSi

[lofcarlos]

l'ho cambiato

adesso il codice è un pò diverso

codice sorgente

[lofcarlos]

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