Dim iNo As Integer

Private Sub Form_Load()
    iNo = 0
    '窗体上有一个名为Winsock1的Winsock控件, 它的Index属性设置为0
    Winsock1(0).LocalPort = 8000
    Winsock1(0).Bind
    Winsock1(0).Listen
End Sub

Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
    iNo = iNo + 1
    Load Winsock1(iNo)
    Winsock1(iNo).Accept requestID
End Sub