怎样用VB编程找出系统中串行口com的个数?

怎样用VB编程找出系统中串行口com的个数?前几天提出此问题,得到一些回答,经过测试都不能解决问题.用打开文件的方法不行,读串行口号的方法不行,API函数的方法不行,请高手出招解决!