Problemer med eksperten-kode.

Fandt denne bid kode da jeg søgte efter winsock herinde under Visual Basic:

Public blnWaitComplete(1000) As Boolean

Public Sub WaitComplete(Index As Integer)
  blnWaitComplete(Index) = True
  Do While blnWaitComplete(Index)
    DoEvents
  Loop
End Sub

Private Sub sckAccept_SendComplete(Index As Integer)
  blnWaitComplete(Index) = False
End Sub

Den melder fejl i Private Sub sckAccept_SendComplete(Index As Integer).. den siger "Sub or Function not defined"!

Hjælp?

Tak på forhånd