Attribute VB_Name = "Module1"
Option Explicit
Type IICaddress
    LPTaddress As Long
    NoBit As Byte
    CPLflag As Byte
End Type
Global SDA_Out As IICaddress
Global SDA_In  As IICaddress
Global SCL_Out As IICaddress
Global SCL_In  As IICaddress

'Declare Sub SetI2CBus Lib "I2C.DLL" (SdaOut() As IICaddress, SdaIn() As IICaddress, SclOut() As IICaddress, SclIn() As IICaddress)
Declare Sub Set_SDA_Out Lib "I2C.DLL" (ByVal LPTaddress As Long, ByVal NoBit As Byte, ByVal CPLflag As Byte)
Declare Sub Set_SDA_In Lib "I2C.DLL" (ByVal LPTaddress As Long, ByVal NoBit As Byte, ByVal CPLflag As Byte)
Declare Sub Set_SCL_Out Lib "I2C.DLL" (ByVal LPTaddress As Long, ByVal NoBit As Byte, ByVal CPLflag As Byte)
Declare Sub Set_SCL_In Lib "I2C.DLL" (ByVal LPTaddress As Long, ByVal NoBit As Byte, ByVal CPLflag As Byte)
Declare Function GetI2CStatus Lib "I2C.DLL" () As Byte
Declare Sub SetI2CStatus Lib "I2C.DLL" (ByVal flag As Byte)
Declare Sub LPT_WriteByte Lib "I2C.DLL" (ByVal address As Long, ByVal data As Byte)
Declare Function LPT_ReadByte Lib "I2C.DLL" (ByVal address As Long) As Byte
Declare Sub LPT_SetBit Lib "I2C.DLL" (ByVal address As Long, ByVal Bit As Byte)
Declare Sub LPT_ClrBit Lib "I2C.DLL" (ByVal address As Long, ByVal Bit As Byte)
Declare Function LPT_GetBit Lib "I2C.DLL" (ByVal address As Long, ByVal Bit As Byte)
Declare Sub LPT_NotBit Lib "I2C.DLL" (ByVal address As Long, ByVal Bit As Byte)
Declare Sub SDA_WriteOne Lib "I2C.DLL" ()
Declare Sub SDA_WriteZero Lib "I2C.DLL" ()
Declare Function SDA_Read Lib "I2C.DLL" () As Byte
Declare Sub SCL_WriteOne Lib "I2C.DLL" ()
Declare Sub SCL_WriteZero Lib "I2C.DLL" ()
Declare Function SCL_Read Lib "I2C.DLL" () As Byte
Declare Sub SetSDA Lib "I2C.DLL" ()
Declare Sub SetSCL Lib "I2C.DLL" ()
Declare Sub ClrSDA Lib "I2C.DLL" ()
Declare Sub ClrSCL Lib "I2C.DLL" ()
Declare Sub IicCheckAck Lib "I2C.DLL" ()
Declare Sub IicSendByte Lib "I2C.DLL" (ByVal chr1 As Byte)
Declare Sub IicStart Lib "I2C.DLL" (ByVal SlaveAddress As Byte)
Declare Sub IicStop Lib "I2C.DLL" ()
Declare Function IicReceiveByte Lib "I2C.DLL" () As Byte
Declare Sub IicAckTest Lib "I2C.DLL" (ByVal SlaveAddr As Byte)
Declare Sub IicWriteByte Lib "I2C.DLL" (ByVal SlaveAddr As Byte, ByVal RegAddr As Byte, ByVal RegData As Byte)
Declare Function IicReadByte Lib "I2C.DLL" (ByVal SlaveAddr As Byte, ByVal RegAddr As Byte) As Byte

Declare Sub EndI2C Lib "I2C.DLL" (ByVal hinst As Long)
Declare Function InitI2C Lib "I2C.DLL" (ByVal hinst As Long, ByVal address As Byte) As Byte

Declare Sub InitLPT Lib "I2C.DLL" (ByVal hinst As Long)
Declare Sub EndLPT Lib "I2C.DLL" (ByVal hinst As Long)