Public Class Form1
    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)
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Timer1.Tick
        Dim test As Int32 = Inp(889) And 8   'Pin 15-Test
        If test = 8 Then
            Out(888, Inp(888) And 254)       'Led D0 ist Aus
        Else
            Out(888, Inp(888) Or 1)          'Led D0 ist An
        End If
        Me.Text = test
    End Sub
End Class