Attribute VB_Name = "ACCES32" '8-bit Public Declare Function InPortB Lib "ACCES32" Alias "VBInPortB" (ByVal Port As Long) As Integer Public Declare Function OutPortB Lib "ACCES32" Alias "VBOutPortB" (ByVal Port As Long, ByVal Value As Byte) As Integer Public Declare Function INSB Lib "ACCES32" Alias "VBINSB" (ByVal Port As Long, ByVal Count As Long, ByRef pBuffer As Byte) As Integer '16-bit Public Declare Function InPort Lib "ACCES32" Alias "VBInPort" (ByVal Port As Long) As Integer Public Declare Function OutPort Lib "ACCES32" Alias "VBOutPort" (ByVal Port As Long, ByVal Value As Integer) As Integer Public Declare Function INSW Lib "ACCES32" Alias "VBINSW" (ByVal Port As Long, ByVal Count As Long, ByRef pBuffer As Integer) As Integer '32-bit Public Declare Function InPortL Lib "ACCES32" Alias "VBInPortL" (ByVal Port As Long) As Long Public Declare Function OutPortL Lib "ACCES32" Alias "VBOutPortL" (ByVal Port As Long, ByVal Value As Long) As Integer Public Declare Function InPortDWord Lib "ACCES32" Alias "VBInPortDWord" (ByVal Port As Long) As Long Public Declare Function OutPortDWord Lib "ACCES32" Alias "VBOutPortDWord" (ByVal Port As Long, ByVal Value As Long) As Integer Public Declare Function INSD Lib "ACCES32" Alias "VBINSD" (ByVal Port As Long, ByVal Count As Long, ByRef pBuffer As Long) As Integer