Dim hSocket As Socket

hSocket = New Socket ( ) [ As "event name" ]

Creates a new Socket.