Ну почему не работает вроде все правильно
эта часть кода клиента:

при нажатии на комад1_клик он пишет что wrong protokol or connection state for the requested transaction or request

Private Sub Command1_Click()
Winsock1.SendData Text1.Text '& vbCrLf
End Sub

Private Sub Command2_Click()
Winsock1.Close
Winsock1.Connect
End Sub

Private Sub Command3_Click()
Winsock1.Close
End Sub

Private Sub Form_Load()
Winsock1.Protocol = sckTCPProtocol
Winsock1.RemoteHost = Winsock1.LocalIP
Winsock1.RemotePort = 100
End Sub

Private Sub Winsock1_Close()
'StatusBar1.Panels.Item(1) = "no"
End Sub

Private Sub Winsock1_Connect()
StatusBar1.Panels.Item(1) = "ok"
End Sub

это сервер:

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Winsock1.LocalPort = 100
Winsock1.Listen
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData, vbString
Text1.Text = strData
End Sub

У меня сервер на запрос не чего не отвечал, там надо вставить код на запрос, у меня все заработало

2Алексей

У меня такая же проблема с флагами, как его обойти и заставить сбрасывать этот флаг