bom estou começando a entender como criar esta rotina.

estou fazendo isso e to conseguindo enviar texto digitado em uma textbox

 

'=======CLIENTE========

Private Sub cmdConectar_Click()
  Winsock1.RemoteHost = txtComputador.Text
  Winsock1.Connect

End Sub

Private Sub cmdEnviar_Click()
Winsock1.SendData txtID.Text
End Sub

Private Sub Form_Load()
   Winsock1.RemotePort = 100
   txtComputador.Text = Winsock1.LocalIP
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
   Dim strdados As String
   Winsock1.GetData strdados
   lblStatus.Caption = strdados

End Sub

'=======SERVIDOR========

Dim strdados As String

 

Private Sub Form_Load()
    Socket.LocalPort = 100
    Socket.Listen
    frmServidor.Caption = " SERVIDOR = " & UCase(Socket.LocalHostName)
 
End Sub

 

Private Sub Socket_ConnectionRequest(ByVal requestID As Long)
 If Socket.State <> sckClosed Then Socket.Close
   Socket.Accept requestID

End Sub

 

Private Sub Socket_DataArrival(ByVal bytesTotal As Long)

   Socket.GetData strdados

   txtPedidoNumero.Text = strdados
   

Socket.SendData "SEU PEDIDO DE ORÇAMENTO JÁ FOI COMPUTADO."
End Sub

 

OBS.: TENHO VÁRIOS CAMPOS TEXTBOX no form Cliente (nome, endereço, data...)

e tenho os mesmos campos na parte SERVIDOR.

Tem como enviar os textos do CLIENTE para o SERVIDOR e esses campos sairem nos campos certos no SERVIDOR?

'====CLIENTE=====

Private Sub cmdEnviar_Click()
Socket.SendData txtEnviar.Text
End Sub

 

Private Sub Form_Load()
    Socket.LocalPort = 100
    Socket.Listen
  lblStatus.Caption = " Winsock - Servidor - " & UCase(Socket.LocalHostName)
 

End Sub

 

Private Sub Socket_ConnectionRequest(ByVal requestID As Long)
 If Socket.State <> sckClosed Then Socket.Close
   Socket.Accept requestID

End Sub

 

Private Sub Socket_DataArrival(ByVal bytesTotal As Long)
   Dim strdados As String
   Socket.GetData strdados
   txtreceber.Text = strdados
  

End Sub

======SERVIDOR=======

 

Private Sub cmdConectar_Click()
  Winsock1.RemoteHost = txtComputador.Text
  Winsock1.Connect

End Sub

 

Private Sub cmdEnviar_Click()
Winsock1.SendData txtEnviar.Text
End Sub

 

Private Sub Form_Load()
   Winsock1.RemotePort = 100
   txtComputador.Text = Winsock1.LocalIP

   
End Sub

 

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
   Dim strdados As String
   Winsock1.GetData strdados
   txtEnviar.Text = strdados

End Sub

ATÉ AQUI ESTA FUNCIONANDO TUDO BEM. AGORA AO INVES DE MANDAR SOMENTE O TEXTO QUE ESTA NO txtEnviar.text também devo enviar os outros campos Ex: (Nome, Endereço, Cidade, CEP...)

E no form SERVIDOR também tenho os mesmos campos (Nome, Endereço, Cidade, CEP...).