'Allgemeine Deklarartionen
Public Declare Function Inp Lib "inpout32.dll"  Alias "Inp32"(ByVal PortAddress _
  As Short) As Short
Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As _
Short, ByVal Value As Short)
 
Public Declare Function Inp64x Lib "inpoutx64.dll" Alias "Inp32_x64" (ByVal _
  PortAddress As Short) As Short
Public Declare Sub Out64x Lib "inpoutx64.dll" Alias "Out32_x64" (ByVal _
PortAddress As Short, ByVal Value As Short)
 
 
 
 
Private Sub cmdAusgang1EIN_Click(ByVal eventSender As System.Object, ByVal _
  eventArgs As System.EventArgs) Handles cmdAusgang1EIN.Click
 
        A = 1
        J = A + B + C + D + E + F + G + H
 
        Select Case str_Plattform
            Case "32 Bit"
                Out(Val("&H" & cbo_LPT.Text), J)
 
            Case "64 Bit"
                Out64x(Val("&H" & cbo_LPT.Text), J)
        End Select

Viele Grüße
Ingo Schick