[VB6]Definire Winsock

[Luc@s]

Ho questo codice:

Dim ws As
' L\' ascolto
Private Sub cmdascolta_Click()
ws.LocalPort = txtport.Text
ws.Listen
MsgBox "Servizio in ascolto sulla porta:" & txtport.Text, vbInformation
End Sub
' La disconnessione
Private Sub cmddisconnetti_Click()
ws.Close
MsgBox "Sessione terminata", vbInformation
End Sub
' Chi
Private Sub ws_ConnectionRequest(ByValrequestID As Long)
If ws.State <> sckClosed Then ws.Close
ws.Accept requestID
lstlog.AddItem "Connesione di:" & ws.RemoteHostIP & "sulla porta" & txtport.Text
For i = 1 To 10000
ws.SendData "Togliti dai piedi lamerone, sei stato loggato ------>" & ws.RemoteHostIP & vbCrLf
Netx i
End Sub

Ma come definosco ws come winsock?????

[steno12]

immetti un controllo winsock1 sul form e nella sua proprietà nome lo chiami ws...... come nel codice da te postato