怎样用VB来判断某个端口是否正在使用?解决方法

怎样用VB来判断某个端口是否正在使用?
如题哈.怎样用VB来判断某个端口是否正在使用?

[解决办法]
on error resume next 
MSComm1.PortOpen = True
if err.number=0 then
MSComm1.PortOpen = false
elseif err.number = comPortOpen then
debug.print "端口已打开"
else
debug.print "其它错误"
end if
[解决办法]
shell("netstat -na >c:\netstat.txt")
'然后读文件c:\netstat.txt判断
[解决办法]