在线等！

Question

首先在vb中添加模块，然后Public Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End TypePublic Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long

Answer 1

楼上的。
如果添加在窗体中时，把Public换成Private即可。

Answer 2

VB有一个工具,叫"API文本浏览器"
你把所需要的函数输入到上面的那个text中,下面会出现这个函数的声明
新建一个module
把这些声明粘贴这里如果函数中需要一些常量
也要如法炮制