vb怎么强行关闭串口

vb如何强行关闭串口？
在一个程序中的一个子程序如何把已经打开的串口关闭，让另一个子程序使用？请高手指点！

[解决办法]

VB code

If MSComm1.PortOpen = Ture Then MSComm1.PortOpen = Falseend if
[解决办法]
用 WMI 对象禁用指定串口设备后再启用那个串口设备。
这样一来无论是同一个进程的串口处理过程或不同进程的串口处理过程。
他所打开的设备句柄将会无效。这样一来被别的程序霸占串口的问题也就解决了。
然后你直接访问就可以了。