Option Explicit
Const DEVICE_AT89C51SND1 = 11
Const COMM_HARDWARE_USB_PORT = 3

'typedef int (STDCALL *PF_ispGetLastError)(void);
Private Declare Function ispGetLastError Lib "C:\tmp\test_atmel\AtIsp.dll" _
() As Integer

'typedef char* (STDCALL *PF_ispGetLastResult)(void);
Private Declare Function ispGetLastResult Lib "C:\tmp\test_atmel\AtIsp.dll" _
() As String

'typedef bool (STDCALL *PF_ispInit)(void);
Private Declare Function ispInit Lib "C:\tmp\test_atmel\AtIsp.dll" _
() As Boolean

'typedef bool (STDCALL *PF_ispSelectDevice)(int device);
Private Declare Function ispSelectDevice Lib "C:\tmp\test_atmel\AtIsp.dll" _
(ByVal device As Integer) As Boolean

'typedef bool (STDCALL *PF_ispSelectCommHardware)(int hardware);
Private Declare Function ispSelectCommHardware Lib "C:\tmp\test_atmel\AtIsp.dll" _
(ByVal comm_hardware As Integer) As Boolean

'typedef bool (STDCALL *PF_ispOpenUsbPort)(void);
Private Declare Function ispOpenUsbPort Lib "C:\tmp\test_atmel\AtIsp.dll" _
() As Boolean

Private Sub TestApi_Click()

Debug.Print "ispInit " & ispInit()
ispSetDebugMode
'// Before running any command, a device and a communication
'// hardware must have been selected.
Debug.Print "ispSelectDevice " & ispSelectDevice(DEVICE_AT89C51SND1)
Debug.Print "ispSelectCommHardware " & ispSelectDevice(COMM_HARDWARE_USB_PORT)

Debug.Print "ispGetLastError " & ispGetLastError()
Debug.Print "ispOpenUsbPort " & ispOpenUsbPort()

End Sub

'Best Regards, Andree