Call Open_Winsock
 
Private Sub Open_Winsock
	set fikon800 = createobject("mswinsock.winsock")
	msgbox fikon800.localip
	fikon800.LocalPort = 5800
	set fikon900 = createobject("mswinsock.winsock")
	msgbox fikon900.localip
	fikon900.LocalPort = 5800
End Sub
 
Private Sub fikon800_ConnectionRequest _
(ByVal requestID As Long)
 
	msgBox requestID
 
End Sub