Public Class Form1
 
    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)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Out(&H3F8, 1)
 
    End Sub
End Class