sodele, ich hab das mal so gemacht:
************************************************** *****************
Modul.bas:
[vb]'inpout32.bas
'Inp und Out Deklarationen

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)
[\code]
************************************************** *****************
Form1:
[vb]Private Sub aus_Click()
Out (4), (0)
End Sub

Private Sub ein_Click()
Out (4), (1)
End Sub
[\code]

ich hab dann mal an Pin 2 ein kabel angelötet, danach das kabel mit einem kleinen lämpchen verbunden und vom lämpchen aus wieder auf Pin 18 des LPT anschlusses...

tut sich leider nix
das lämpchen funktioniert, das hab ich getestet an dem kanns net liegen...

hat jemand ne idee ?

gruß Frosty