Messenger Client Coding

  
'Frm client coding
  

Private Sub Cmd_Send_Click()
On Error GoTo Ex
If Len(Txt_Cli_Msg.Text) > 0 Then
 'Txt_Show_Msg.Text = Txt_Show_Msg.Text + vbCrLf + Trim(Txt_Cli_Msg.Text)
 TcpClient.SendData frmClient.Caption + " : " + Txt_Cli_Msg.Text
 Txt_Cli_Msg.Text = ""
End If
Exit Sub
Ex:
  MsgBox "Server is in offline"
End Sub
Private Sub Form_Load()
 TcpClient.RemoteHost = "PAN1"
 TcpClient.RemotePort = 1002
 TcpClient.Connect
 Unload frmLogin
End Sub<
  

Private Sub TcpClient_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
TcpClient.GetData strData
Txt_Show_Msg.Text = Txt_Show_Msg.Text + vbCrLf + strData
End Sub
  

Private Sub Txt_Cli_Msg_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
  Call Cmd_Send_Click
End If
End Sub
  

'Frm Login Coding
Private Sub Cmd_Log_Click()
If Len(Txt_Usr.Text) > 0 Then
 frmClient.Caption = Trim(Txt_Usr.Text)
 frmClient.Show
 Unload Me
Else
 MsgBox "Enter User ...."
 Txt_Usr.SetFocus
End If
End Sub