Private Sub Form_Load()
   ServerSock.LocalPort = 1111
   ServerSock.Listen
End Sub

Private Sub ServerSock_ConnectionRequest(ByVal requestID As Long)
   ServerSock.Accept requestID
End Sub

Private Sub ServerSock_Close()
   ServerSock.Close
End Sub