Attribute VB_Name = "Module1"
' The Dll to VB demo....
Declare Function DIO_ShortSub2 Lib "dio.dll" (ByVal a As Integer, ByVal b As Integer) As Integer
Declare Function DIO_FloatSub2 Lib "dio.dll" (ByVal a As Single, ByVal b As Single) As Single

' The DIO test functions
Declare Sub DIO_OutputByte Lib "dio.dll" (ByVal address As Integer, ByVal dataout As Integer)
Declare Function DIO_InputByte Lib "dio.dll" (ByVal address As Integer) As Integer