Re:度々ありがとうございます

試しに下のようなコードを書いてみました。間違いもあるかもしれませんが、参考にしていただければ幸いです。

> Winsockコントロールの.net版は出そうにないし、
> 素直にSocketクラスを勉強してみます

ライセンスの問題がなければ、WinsockコントロールをVB.netで使うことは可能だとは思いますが、.netでは使わないほうがいいでしょうね。

　　Dim objListener As System.Net.Sockets.TcpListener
　　objListener = New System.Net.Sockets.TcpListener(2001)
　　objListener.Start()

　　Dim objClient As System.Net.Sockets.Socket
　　objClient = objListener.AcceptSocket()
　　Console.WriteLine("クライアント接続")

　　Try
　　　　Do
　　　　　　Dim bytData(1024) As Byte
　　　　　　Dim intLength As Integer
　　　　　　intLength = objClient.Receive(bytData)
　　　　　　If intLength = 0 Then
　　　　　　　　Console.WriteLine("クライアントが切断")
　　　　　　　　objClient.Close()
　　　　　　　　Exit Do
　　　　　　End If
　　　　　　Console.WriteLine("データ受信")
　　　　　　Console.WriteLine(System.Text.Encoding.ASCII.GetString(bytData, 0, intLength))
　　　　Loop
　　Catch ex As Exception
　　　　Console.WriteLine(ex.ToString())
　　　　objClient.Close()
　　End Try

　　objListener.Stop()