Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Windows ´°ÌåÉè¼ÆÆ÷Éú³ÉµÄ´úÂë "
 
    Public Sub New()
        MyBase.New()
 
        '¸Ãµ÷ÓÃÊÇ Windows ´°ÌåÉè¼ÆÆ÷Ëù±ØÐèµÄ¡£
        InitializeComponent()
 
        'ÔÚ InitializeComponent() µ÷ÓÃÖ®ºóÌí¼ÓÈκγõʼ»¯
 
    End Sub
 
    '´°ÌåÖØд dispose ÒÔÇåÀí×é¼þÁÐ±í¡£
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    'Windows ´°ÌåÉè¼ÆÆ÷Ëù±ØÐèµÄ
    Private components As System.ComponentModel.IContainer
 
    '×¢Òâ: ÒÔϹý³ÌÊÇ Windows ´°ÌåÉè¼ÆÆ÷Ëù±ØÐèµÄ
    '¿ÉÒÔʹÓà Windows ´°ÌåÉè¼ÆÆ÷Ð޸Ĵ˹ý³Ì¡£
    '²»ÒªÊ¹ÓôúÂë±à¼­Æ÷ÐÞ¸ÄËü¡£
    Friend WithEvents AxWinsock1 As AxMSWinsockLib.AxWinsock
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.ComponentModel.ComponentResourceManager = New _
          System.ComponentModel.ComponentResourceManager(GetType(Form1))
        Me.AxWinsock1 = New AxMSWinsockLib.AxWinsock
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.Button1 = New System.Windows.Forms.Button
        CType(Me.AxWinsock1, _
          System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'AxWinsock1
        '
        Me.AxWinsock1.Enabled = True
        Me.AxWinsock1.Location = New System.Drawing.Point(312, 28)
        Me.AxWinsock1.Name = "AxWinsock1"
        Me.AxWinsock1.OcxState = CType(resources.GetObject( _
          "AxWinsock1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.AxWinsock1.Size = New System.Drawing.Size(28, 28)
        Me.AxWinsock1.TabIndex = 0
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(82, 68)
        Me.TextBox1.Multiline = True
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(178, 129)
        Me.TextBox1.TabIndex = 1
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(39, 20)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(79, 35)
        Me.Button1.TabIndex = 2
        Me.Button1.Text = "Button1"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(368, 302)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.AxWinsock1)
        Me.Name = "Form1"
        Me.Text = "Test"
        CType(Me.AxWinsock1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()
 
    End Sub
 
#End Region
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        AxWinsock1.LocalPort = 0
        AxWinsock1.Listen()
    End Sub
 
 
    Private Sub AxWinsock1_DataArrival(ByVal sender As Object, ByVal e As _
      AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles _
      AxWinsock1.DataArrival
        'Dim strData As Object
        Dim tstring As String
        tstring = ""
 
        AxWinsock1.GetData(tstring)
        TextBox1.Text = tstring
    End Sub
    Private Sub AxWinsock1_ConnectionRequest(ByVal sender As Object, ByVal e As _
      AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles _
      AxWinsock1.ConnectionRequest
        If AxWinsock1.CtlState <> MSWinsockLib.StateConstants.sckConnected Then
            AxWinsock1.Close()
        End If
 
        AxWinsock1.Accept(e.requestID)
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        AxWinsock1.LocalPort = 1001 'Port 1001 einstellen
        AxWinsock1.Listen() 'Server starten
    End Sub
End Class