ConnectHost

Option Explicit

Private Sub cmdClose_Click()
winSocket.Close
cmdclose.Enabled = False
cmdsendit.Enabled = False
cmdconnect.Enabled = True
host.Locked = False
port.Locked = False
End Sub

Private Sub cmdConnect_Click()
If host.Text = "" Or port.Text = "" Then Exit Sub
host.Locked = True
port.Locked = True
winSocket.Connect host.Text, port.Text

Do While winSocket.State <> sckConnected
DoEvents
Loop

cmdconnect.Enabled = False
cmdclose.Enabled = True
cmdsendit.Enabled = True
End Sub

Private Sub cmdSend_Click()
winSocket.SendData txtentry.Text & vbCrLf
End Sub

Private Sub Form_Terminate()
winSocket.Close
End Sub

Private Sub lblres_Click()

End Sub

Private Sub winSocket_DataArrival(ByVal bytesTotal As Long)

Dim strTemp As String
winSocket.GetData strTemp
lblresult.Caption = strTemp
txtentry.Text = ""
txtentry.SetFocus

End Sub
Un controllo Winsock control sul form (WinSocket)
nome sckTCPProtocol

3 textboxes -> host, port, txtentry <-
1 label - lblresult
3 comand -> cmdconnect, cmdclose, cmdsendit <-