no hace falta que lo pongas en los dos por ejemplo:
el form1 es el index por llamarlo así que es el form que tiene todo.
vale el form2 es el chat pues lo único que tienes que hacer es:
form1:Private Sub Command1_Click()
On Error Resume Next
Ws.RemoteHost = Text3.Text
Ws.Connect
Private Sub Command2_Click()
form2.show
end sub
Private Sub Ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Ws.GetData datos
form2.Text1.Text = form2.Text1.Text & datos & vbCrLf
End Sub
form2:Private Sub Command2_Click()
On Error Resume Next
Dim enviar As String
enviar = Text4.Text & " dice: " & Text2.Text & vbCrLf
form1.Ws.SendData enviar
End Sub
Salu2