Second, I hope no one tells me I missed this solution with all my searches
Third, hope this helps someone.
adding the 'as integer' on the Out32 declaration solved days of headBanging/hairPulling/drinking
Inp worked all along. Drove myself crazier reasearching vb6 type lengths, etc.
Code: Select all
Public Declare Function Inp Lib "C:\Telem2\lpt access\inpout32.dll" Alias "Inp32" _ (ByVal PortAddress As Integer) As Integer Public Declare Function Out32 Lib "C:\Telem2\lpt access\inpout32.dll" _ (ByVal PortAddress As Integer, ByVal Data As Integer) As Integer Private Sub txt1_Change() Dim pLpt, vLpt As Integer pLpt = 888 If Val(txt1.Text) >= 0 And Val(txt1.Text) < 256 Then vLpt = Val(txt1.Text) Call Out32(pLpt, vLpt) End If End Sub