Ho creato questo
codice:
Private Sub Form_Load()
Winsock1.LocalPort = 100
Winsock1.Listen
End Sub


Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then tcpServer.Close
tcpServer.Accept requestID
End Sub


Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
'tcpserver.peekData non svuota la variabile dopo aver inviato i dati al text1
tcpServer.GetData strData
Text1.Text = strData

End Sub


Private Sub Command1_Click()
tcpServer.SendData Text2.Text
End Sub
ma al click sul command 1 mi dice
errore necessario oggetto (il text2.text c'č)