Module Module1


    Public lngHandle As Integer

    Public Declare Function FT_ListDevices Lib "FTD2XX.DLL" (ByVal arg1 As Integer, ByVal arg2 As String, ByVal dwFlags As Integer) As Integer
    Public Declare Function FT_GetNumDevices Lib "FTD2XX.DLL" Alias "FT_ListDevices" (ByRef arg1 As Integer, ByVal arg2 As String, ByVal dwFlags As Integer) As Integer


    Public Declare Function FT_Open Lib "FTD2XX.DLL" (ByVal intDeviceNumber As Short, ByRef lngHandle As Integer) As Integer
    Public Declare Function FT_Close Lib "FTD2XX.DLL" (ByVal lngHandle As Integer) As Integer
    Public Declare Function FT_OpenBySerialNumber Lib "FTD2XX.DLL" Alias "FT_OpenEx" (ByVal SerialNumber As String, ByVal lngFlags As Integer, ByRef lngHandle As Integer) As Integer
    Public Declare Function FT_OpenByDescription Lib "FTD2XX.DLL" Alias "FT_OpenEx" (ByVal Description As String, ByVal lngFlags As Integer, ByRef lngHandle As Integer) As Integer

    Public Declare Function FT_SetBitMode Lib "FTD2XX.DLL" (ByVal lngHandle As Integer, ByVal intMask As Byte, ByVal intMode As Byte) As Integer
    Public Declare Function FT_SetBaudRate Lib "FTD2XX.DLL" (ByVal lngHandle As Integer, ByVal lngBaudRate As Integer) As Integer
    Public Declare Function FT_SetTimeouts Lib "FTD2XX.DLL" (ByVal lngHandle As Integer, ByVal lngReadTimeout As Integer, ByVal lngWriteTimeout As Integer) As Integer
    Public Declare Function FT_GetBitMode Lib "FTD2XX.DLL" (ByVal lngHandle As Integer, ByRef intData As Integer) As Integer


    Public Declare Function FT_ResetDevice Lib "FTD2XX.DLL" (ByVal lngHandle As Integer) As Integer
    Public Declare Function FT_SetLatencyTimer Lib "FTD2XX.DLL" (ByVal Handle As Integer, ByVal pucTimer As Byte) As Integer
    Public Declare Function FT_Purge Lib "FTD2XX.DLL" (ByVal lngHandle As Integer, ByVal lngMask As Integer) As Integer
    Public Declare Function FT_WriteByte Lib "FTD2XX.DLL" Alias "FT_Write" (ByVal lngHandle As Integer, ByRef lpszBuffer As Byte, ByVal lngBufferSize As Integer, ByRef lngBytesWritten As Integer) As Integer
    Public Declare Function FT_Read Lib "FTD2XX.DLL" (ByVal lngHandle As Integer, ByRef lpszBuffer As Byte, ByVal lngBufferSize As Integer, ByRef lngBytesReturned As Integer) As Integer

    ' Return codes
    Public Const FT_OK = 0

    ' Purge rx and tx buffers
    Public Const FT_PURGE_RX = 1
    Public Const FT_PURGE_TX = 2

    ' Bit Modes
    Public Const FT_BITMODE_RESET = &H0
    Public Const FT_BITMODE_ASYNC_BITBANG = &H1
    Public Const FT_BITMODE_SYNC_BITBANG = &H4

    ' Flags for FT_ListDevices
    Public Const FT_LIST_BY_NUMBER_ONLY As Integer = &H80000000
    Public Const FT_LIST_BY_INDEX As Integer = &H40000000

    ' Flags for FT_OpenEx
    Public Const FT_OPEN_BY_SERIAL_NUMBER As Short = 1
    Public Const FT_OPEN_BY_DESCRIPTION As Short = 2

    Public numDevs As Integer

End Module