Thanks VBWheaties , sorry but i forgot to mention that i want to access it under xp
Try to study this...
Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
Public Declare Function Inp32 Lib "DllPort.dll" (ByVal PortAddress As Integer) As Integer
then,
Dim D as integer
'Send the integer to the parallel port using inpout.dll (The "&H378" tells it that it is a data port and the integer tell it wich pins to turn on)
Out Val("&H378"), Val(D)
I hope this give you a little idea...