Code:
' Client Form
'
Private Sub cmdSend_Click()
If txtUserName.Text <> "" And txtPassword.Text <> "" Then
    Winsock1.Close
    Winsock1.RemoteHost = "localhost"
    Winsock1.RemotePort = 8001
    Winsock1.Connect
Else
    MsgBox "Must specify both Username and Password"
End If
End Sub

Private Sub Winsock1_Connect()
Winsock1.SendData txtUserName.Text & "|" & txtPassword.Text & vbCr
End Sub

Private Sub Winsock1_SendComplete()
 Winsock1.Close
End Sub
first time data transfer without problem as usuall

but, now its not giving any error when i click again on send

but, no data transfering...

did you try this code?!!

is it working with you...