USB CreateFile()函数使用问题

[ccbbcc]

我正在看一本VB6 USB编程的书，《8051单片机USB接口Visual Basic程序设计》
看到第12章，取得设备的标示代号：
原程序为：
Public Declare Function CreateFile _
Lib "kernel32" _
Alias "CreateFileA" _
(ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByRef lpSecurityAttributes As Long, _
ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, _
ByVal hTemplateFile As Long) _
As Long

执行效果如下：

提示内存位置访问无效。
后来下载了一个例程，
Dim Security As SECURITY_ATTRIBUTES

Public Declare Function CreateFile _
Lib "kernel32" _
Alias "CreateFileA" _
(ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, _
ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, _
ByVal hTemplateFile As Long) _
As Long

执行效果如图：

为什么会这样呢？请高手指教，谢谢！