'mein code im modul
 
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)
 
 
'der code der in der endlosschleife ausgführt werden soll
'dieser code ist nur ein testcode der LEDs ansteuert reicht aber zur lösung des 
' problems
 
    DoEvents
    Out PortAddress, 1
    For x = 0 To 10
    Next x
    DoEvents
    Out PortAddress, 2
    For x = 0 To 10
    Next x
    DoEvents
    Out PortAddress, 4
    For x = 0 To 10
    Next x
    DoEvents
    Out PortAddress, 8
    For x = 0 To 10
    Next x
    DoEvents
    Out PortAddress, 0
    For x = 0 To 10
    Next x
    DoEvents