That article refers to actually getting directly into using the socket level programming. I am guessing you might not want to get into something that technical.

Here is some code to get you started with. You will need to experiment to get a better understanding.

init the control
Winsock1.Bind 80
Winsock1.Listen


Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock2.Accept requestID
End Sub

This is pulled from some VB code I have. It is not hard to convert it though.