关于用VB api函数 写串口的问题

我用VB API 写了一个串口的程序，但是怎么都打不开。以下是写的程序。

{前面已有API的相关声明}
com_name = "COM6"
hCF = CreateFile(com_name, &HC0000000, 0, 0, 3, 0, 0)
   
 errNum = GetLastError()
编译通过 但是 hCF总是返回-1。

这个COM6是USB的虚拟串口，我也用VB mscomm 控件编过串口程序，也是COM6。在一个机器上，没有任何问题，收发都是正常的。
不知道为什么用API就不行，请各位高手指点一下，谢谢了。

看看这个吧，对你有用