i do this is it look


VB Code:
  1. Public Sub winsock_connect()

  2. MsgBox "You Are Now Connected "

  3. Winsock.SendData "N:" & frmlogin.txtnick.Text

  4. txtchat.Text = " "

  5. End Sub

  6.  
  7.  
  8.  
  9.  
  10. Private Sub cmdSend_click()

  11. Winsock.SendData frmlogin.txtnick.Text & ": " & txtmsg.Text 

  12. 'txtchat.Text = txtchat.Text & vbNewLine & frmlogin.txtnick.Text & ": " & txtmsg.Text

  13. txtmsg.Text = ""

  14. end sub


server does this

VB Code:
  1. If strRecivedData = "N:" Then

  2. txtchat.Text = strRecivedData & " has joined chat."

  3. server(SocketCheck).SendData ""