关于.Net和VB6中Socket的问题

类库System.Net.Sockets
举两个示例
1、服务器端程序(DateTimeServer.vb)
-------------------------------
Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.Threading
Imports System.Globalization

Public Class DateTimeServer
Public Shared Sub Main()
Dim now As Date
Dim strDateLine As String
Dim ASCII As Encoding = Encoding.ASCII

Thread.CurrentThread.CurrentCulture = CultureInfo.InvariantCulture

Try
Dim tcpl As New TCPListener(13) '在端口 13 上进行侦听
tcpl.Start()

Console.WriteLine("正在等待客户端连接")
Console.WriteLine("按 Ctrl+C 退出...")

While (True)
' 接受将阻塞，直到有人连接
Dim s As Socket = tcpl.AcceptSocket()

' 获取当前日期和时间，然后将
' 其连接为字符串