求VB达人帮忙

我想用VB做一个程序控制外网对本机指定端口的访问，例如：A和B的ip分别是XXX.XXX.XXX.XX1和XXX.XXX.XXX.XX2，现在把A和B设为授权用户可以访问本机的3933端。其它机器拒绝访问3933端口，如何想访问需要加入授权列表才可以访问。源程序怎么写？哪位高手能够赐教小弟，感激不尽。本人信箱[email protected]。我只想用VB来实现这个程序，不想用ip安全策略防火墙什么的。