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 red_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles red.Click
        'Rote Lampe
        Out(&H378, 1)
        'Rnde
    End Sub