[vb] winsock wil niet :(

[Verwijderd]

Ik ben weer eens met winsock bezig omdat ik me verveelde
nu heb ik het volgende:

code:

Private Sub Command1_Click()
Winsock1.LocalPort = 1337
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock.Accept requestID
End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Received As String           'declareer de ontvangen data
Winsock.GetData Received, , bytesTotal 'ontvang de data. bytestotal
                           'betekent dat je alle data
                           'wilt ontvangen en niet n deel
                           'ervan.
                           ',,10 is bijvoorbeeld alleen
                           'de eerste 10 tekens.
                           'let op de TWEE komma's!
Text1.Text = Text1.Text & Received     'dump t goedje in de textbox
End Sub

allemaal wel leuk en aardig..
maar zodra ik connect via telnet op port 1337 crasht et proggie en krijg ik de volgende error:
Object required

als ik dan op debug druk krijg ik te zien dat het aan deze line ligt:
Winsock.Accept requestID

Iemand enig idee hoe dit kan?

[Verwijderd]

Maak er Winsock1.Accept en Winsock1.GetData van