Declare Function E4Open Lib "ECFAPI.DLL" (ByVal Porta As Byte, ByVal Tipo As Byte) As Integer
Declare Function E4Close Lib "ECFAPI.DLL" () As Integer
Declare Function E4Reset Lib "ECFAPI.DLL" (ByVal Tipo As Integer) As Integer
Declare Function E4RdData Lib "ECFAPI.DLL" (ByVal Data As String, ByVal Hora As String, ByRef Verao As Byte, ByVal Mov As String, ByRef Red As Byte) As Integer

Declare  integer E4Open      in "ECFAPI.DLL" Integer Porta, Integer Tipo
Declare  integer E4Close     in "ECFAPI.DLL"
Declare  integer E4Reset     in "ECFAPI.DLL" Integer Tipo
Declare  integer E4RdData    in "ECFAPI.DLL" String dData, String Hora, String Verao, String Mov, String @Red
Declare  integer E4Verao     in "ECFAPI.DLL" String Opc

wret = e4open(1,1)