SoloCodigo

Buenas, quiero saber si este cód. me devuelve lo q esta entrando al puerto paralelo, me dirian uds. q les parece ?

en un modulo:
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)

en el form:
Private Sub Form_Load()
'me da 255  
Text1.Text = Str(Inp(Val(&H378)))
End Sub

Gracias,
Lau