VB初心者質問スレPart2

>>736
なんで胡散臭く感じるか不思議なのだけど、簡単にできるよ。

Text3が相手のホスト名(叉はIP)、Text4がポート、
Text1はMultiLine=trueで。
Command1で接続、
Command2でサーバモードで待ち受け、
Command3で送信。

Private Sub Command1_Click()
'相手に接続(クライアントモード)
Winsock1.Close
Winsock1.RemoteHost = Text3.Text
Winsock1.RemotePort = Val(Text4.Text)
Winsock1.Connect
End Sub
Private Sub Command2_Click()
'接続を待ち受け(サーバモード)
Winsock1.Close
Winsock1.LocalPort = Val(Text4.Text)
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'相手から接続要求が来たので接続
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Command3_Click()
'送信
Dim strSend$
strSend = Text2.Text & vbCrLf
Text2.Text = ""
Text1.Text = Text1.Text & strSend
On Error Resume Next
Winsock1.SendData strSend
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'受信
Dim A$
Winsock1.GetData A
Text1.Text = Text1.Text & A
End Sub

無粋なソースなのでsage。